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MODEL D MANUALS: WHERE TO TURN FIRST 


OPERATOR’S GUIDE 


Read this guide first, as it serves as an introduction to the Model D. 
It explains how to set up and use the computer, and how to solve any 
problems you may encounter. Turn next to the MS-DOS User's Guide. 


MS-DOS USER’S GUIDE 


You need an operating system to run the Model D. This guide contains the 
basics that you need to know to run the Model D with the MS-DOS operating 
system. Procedures are presented in an easy-to-follow, step-by-step 


format. Read through the entire guide (it’s short) before you begin to 
use MS-DOS. 


MS-DOS REFERENCE MANUAL GUIDE TO BASIC 


This manual describes the features of Before you can write BASIC programs on 
the MS-DOS operating system in a more the Model D, you'll need to learn about 
technical format. You'll discover more GWBASIC. This book explains GWBASIC 
powerful ways to use MS-DOS. Read commands, statements, functions, and 
the Reference Manual after you're variables and the correct syntax for 
comfortable using MS-DOS and are each. It does not teach you how to 
familiar with the basic commands program in GWBASIC. 

outlined in the MS-DOS User's Guide. 
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PREFACE 


Leading Edge’s GWBASIC interpreter is an advanced version of Microsoft 
Corporation’s BASIC interpreter. Throughout this manual the term GWBASIC 
refers to this product. 


HOW TO USE THIS GUIDE 


In order to use this guide, you should have some general knowledge of computer 
programming concepts. This guide does not attempt to teach you how to program 
a computer in GWBASIC. 


This guide contains three Chapters plus nine Appendices: 


Chapter 1 General Information on GWBASIC 
This chapter tells you what you need to know to begin using 
GWBASIC. Included in this chapter is information about the 
keyboard characters, filenames, and how data and relationships are 
expressed using GWBASIC. 


Chapter 2 GWBASIC Commands and Statements 
This chapter is a reference section containing each of the GWBASIC 
commands and statements in alphabetical order. It contains the 
syntax and examples of correct usage for each. 


Chapter 3  GWBASIC Functions and Variables 
This chapter is a reference section containing each of the GWBASIC 
functions and variables in alphabetical order. It contains the 
syntax and examples of correct usage for each. 


Appendices Appendix A through Appendix J contain additional information you 
may find useful, such as disk input and output, communications, 
GWBASIC assembly language support, error codes, mathematical 
functions, a syntax list, and the ASCII character set. Also 
included are sections of interest to an experienced programmer. 


We suggest that you read Chapter 1 very carefully to become familiar with 
GWBASIC. Chapters 2 and 3 can be used to find information you need when you 
are actually programming. 


MAJOR FEATURES OF LEADING EDGE GWBASIC 

The following features are included in this version of GWBASIC: 

o Four variable types: Integer (432767), String (up to 255 characters), 
Single Precision Floating Point (7 digits), Double Precision Floating Point 
(16 digits) 

o Double Precision Transcendentals. Optional with the /D switch 

о Trace facility (TRON/TROFF) for easy debugging 

o Error trapping using the ON ERROR GOTO statement 

o Event trapping is enabled 

o PEEK and POKE statements to read and write to any memory location 

o Automatic line numbering and renumbering, including referenced line numbers 

o Boolean operators OR, AND, NOT, XOR, EQV, IMP 

o  Formatted output using the complete PRINT USING facility, including 
asterisk fill, floating dollar sign, scientific notation, trailing sign, 
comma insertion 

o Direct access to 64KB I/O ports with the INP and OUT functions 

o Extensive program editing facilities via screen editor 

o User definable keyboard trapping 

o Assembly language subroutine calls are supported 

o  IF/THEN/ELSE and nested IF/THEN/ELSE constructs 

o  GWBASIC supports variable length random and sequential disk files with a 
complete set of file manipulation statements: OPEN, CLOSE, GET, PUT, KILL, 
NAME, MERGE 

o Extended character sets 

о Sound generation and a feature that plays sequences of programmed notes 

o An internal clock that keeps track of the time and date 


o  Asynchronous communication (RS-232C) is supported 


o Redirection of Standard Input (INPUT, LINE INPUT) and Standard Output 
(PRINT) 


о Tree structured directories for better disk organization 
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o Improved Disk I/O facilities for handling larger files 
o Directory management support (MKDIR, CHDIR, RMDIR) 
o Improved Graphics: Line Clipping, VIEW, WINDOW 


o More precise control of GWBASIC's memory allocation for your routines with 
the /M: switch 


o Hercules compatible monochrome graphics 


о 16 color high resolution graphics 


SYNTAX NOTATION 


The following notation is used throughout this guide in descriptions of command 
and statement syntax and in examples of GWBASIC code: 


[ ] Square brackets indicate that the enclosed entry is optional 


italics Words in italics indicate variable data that the user must enter, for 
example, filename. Sometimes the entries shown are optional. 


Ellipses indicate that an entry may be repeated as many times as needed 
or desired. 


CAPS Capital letters indicate portions of statements or commands that must 
be entered exactly as shown. 


All other punctuation (such as commas, colons, slash marks, parentheses, and 
equal signs) must be entered exactly as shown. 
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CHAPTER 1 
GENERAL INFORMATION ON GWBASIC 


PROGRAMMING 


Starting GWBASIC 
To use GWBASIC to create or edit a program, you must follow these steps: 
1. Insert the MS-DOS system disk into Drive A and turn the computer ON. 


2. When the MS-DOS prompt (A>) is displayed, remove the MS-DOS disk and 
insert the BASIC disk in Drive A. 


3. To start programming, type: 
basic 
and then press RETURN. 


You can modify GWBASIC’s programming environment by specifying start 
Options after you type BASIC on the command line. These start options are: 


BASIC [f//ename ] 

BASIC | < stdin ][»1[» stdout |) 

BASIC [/C:combuffer size] 

BASIC [/D] 

BASIC [/F:fi/es ] 

BASIC [/M:A/ghest memory location ||, maximum block size | 
BASIC [/S:buffer size | 


To exit GWBASIC and return to MS-DOS, type 


system 


and then press RETURN. (Refer to the SYSTEM command in Chapter 2.) 


Definitions of Start Options 


BASIC #//ename 


Specifies a program to be loaded and run immediately. If filename is 
present, GWBASIC proceeds as if a RUN filename command were typed. 

A default extension of .BAS is used if none is supplied and the 

filename is less than 9 characters long. This allows GWBASIC programs 
to be executed in batch mode using the BATCH facility of MS-DOS. Such 
programs should include a SYSTEM statement to return to MS-DOS when 
they have finished, allowing the next program in the batch stream to 
execute. 


BASIC <stdin 


Redirects GWBASIC input from the file specified by stdin. When 
present, this entry must appear before any other options. See 
Redirection of Standard Input and Standard Output in this chapter. 


BASIC »stdout 


Redirects GWBASIC output to the file specified by stdout. When 
present, this entry must appear before any other options. See 
Redirection of Standard Input and Standard Output in this chapter. 


BASIC /C:combuffer size 


Sets the size of the buffer that is used for receiving data through a 
communication file. Your computer has a serial (RS-232C) port, so you 
may use this option on the GWBASIC command line. 


ICD disables RS-232C support. Subsequent I/O attempts result in a 
Device Unavailable error. 


/C:nnn  allocates nnn bytes for the communication buffers. GWBASIC 
allocates 128 bytes for the transmit buffer for each RS-232C 
port installed. If /C is omitted, GWBASIC allocates 256 bytes 
for receive and 128 bytes for transmit for each RS-232C port 
installed. GWBASIC ignores the /C option when RS-232C ports 
are not present. 


BASIC /D 


If included in the command line, causes the Double Precision Transcen- 
dental math package to stay in memory. If omitted, the package is 
discarded, freeing memory for program use. ATP, COS, EXP, LOG, SIN, 
SQR, and TAN functions are converted to Double Precision. 


BASIC /F 
Sets the maximum number of files that can be open at any one time when 


you are running a GWBASIC program. Each file needs 62 bytes of memory 
for the File Control Block (FCB), plus 128 bytes for a data buffer. 
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The size of the data buffer is set with the /S switch. If you don’t 

enter /F on the command line, the default number of files is 3 The 
number of files that can be open at once depends on the value of the 
FILES command entered in CONFIG.SYS, the MS-DOS configuration file. 

The maximum number permissible for use with GWBASIC is FILES=15. If no 
FILES command is used in CONFIG.SYS, or if no CONFIG.SYS file is 
present, the default value for GWBASIC files is FILES-8. 


The first three file handles are taken by stdin, stdout, stderr, 

stdaux, and stdprn. GWBASIC requires an additional handle for LOAD, 
NAME, CHAIN, MERGE, and SAVE. For example, if FILES-12, 8 are left for 
GWBASIC file I/O. If you attempt to OPEN a file after all the file 
handles have been exhausted, a Тоо many files error message is 
displayed. 


BASIC /M:[^/ghest memory location ||, maximum block size | 


Optionally sets the highest memory location that is used by GWBASIC. 
GWBASIC is able to use a maximum of 64K bytes of memory, so the highest 
value that may be set is 64K (FFFF in hexadecimal) If machine 

language subroutines are to be used with GWBASIC programs, use the /M 
option to set the highest memory location that GWBASIC can use. When 
the highest memory location is omitted or has a value of zero, GWBASIC 
tries to allocate all it can up to a maximum of 64 K. 


If you want to load items into memory above the highest location 
GWBASIC can use, enter the optional parameter maximum block size to 
reserve space for them. Maximum block size must be in paragraphs. 
When omitted, &H1000 (4096) is assumed. This allocates 65536 bytes 
(65536 = 4096x16) for GWBASIC's Data and Stack segment. If you want 
65536 bytes for GWBASIC and 512 bytes for machine language subroutines, 
use /M:&H1010 (4096 paragraphs for GWBASIC, 16 paragraphs for your 
routines). This option can also be used to limit the GWBASIC block in 
order to have more memory available. For example: 


/M:2048 
allocates 32728 bytes for data and stack. 
/M: 32000, 2048 


allocates 32728 maximum, but GWBASIC uses only the lower 
32000. This leaves 768 bytes for your use. 


BASIC /S:buffer size 


Sets the buffer size for use with random files. The record length 
parameter on the OPEN statement may not exceed this value. The default 
buffer size is 128 bytes; the maximum value is 32767. А size of 512 
generally improves performance when using open files. 


Note: Combuffer size, buffer size, highest memory location, and maximum 


block size are numbers that maybe either decimal, octal (preceded by &0) or 
hexadecimal (preceded by &H) values. 
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Examples 
A»BASIC PAYROLL . BAS 
Use all memory and load and execute PAYROLL.BAS. 
A»BASIC /M:32768 
Use only the first 32K of memory. 32K above that is free for the user. 
A»BASIC ОАТАСК /M: &H9000 
Use first 36K of memory and execute DATACK.BAS. 
A>BASIC /C:0/M: 32768 
Disable RS-232C support and use only the first 32K of memory. 32K 
above that is free for the user. 
Redirection of Standard Input and Standard Output 


You can redirect GWBASIC's input and output to read from a Standard Input 
file and write to a Standard Output file by using the command line: 


BASIC program name [</nput file] [>] [> output file] 
Both input file and output file can be a device instead of a disk file. 
When redirecting Standard Input or Output, the following rules apply: 


1. When redirected, all INPUT, LINE INPUT, INPUT$, and INKEY$ statements 
are read from the input file specified instead of from the keyboard. 


2. All PRINT statements write to the output file specified instead of the 
screen. 


3. Error messages go to Standard Output. 
4. File input from " KYBD: " still reads from the keyboard. 
5. File output to " SCRN: " still displays on your screen. 


6. GWBASIC continues to trap keys from the keyboard when the ON KEY (n) 
statement is used. 


7. The printer echo key does not cause LPT1 echoing if Standard Output has 
been redirected. 


8. Pressing CTRL BREAK causes GWBASIC to close any open files, send the 
message BREAK in linennnnn to Standard Output. 
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9. When input is redirected, GWBASIC reads from its source until a CTRL Z 
is detected. This condition may be tested with the EOF function. If 
the file is not terminated with a CTRL Z or if a GWBASIC file input 
statement tries to read past end-of-file, then GWBASIC closes any open 
files, writes the message Read past end to Standard Output. 


Examples 
BASIC SAMPLE »DATA.OUT 


Data read by INPUT and LINE INPUT comes from the keyboard. Data output 
by PRINT is sent to the file DATA.OUT. 


BASIC SAMPLE «DATA. IN 


Data read by INPUT and LINE INPUT comes from the DATA.IN file. Data 
output by PRINT is displayed on the screen. 


BASIC SAMPLE «INPUT.DAT »OUTPUT.DAT 


Data read by INPUT and LINE INPUT comes from the file INPUT.DAT and 
data output by PRINT is sent to the file OUTPUT.DAT. 


BASIC TRAVEL <\SALES\DIV\TRANS > >\SALES\SALES.DAT 


Data read by INPUT and LINE INPUT now comes from the file 
\SALES\DIV\TRANS. Data output by PRINT is appended to the file named 
\SALES\SALES.DAT. 


Entering GWBASIC Commands 


The Ok prompt on your screen means that GWBASIC is ready to accept any 
commands. Whenever the computer is in this ready state, you can create, 
change, or run a GWBASIC program. A command mode and a program mode are 
provided to execute GWBASIC commands and statements (see below, Modes of 
Operation). 


In the command mode, each command entered is performed (executed) 
immediately. In the program mode, each command or statement entered is 
stored in memory before being executed. When the computer is in the ready 
state and a command or statement is entered, it is executed in command mode 
unless it is prefixed with a line number. If a command or statement has a 
line number, it is assumed to be a statement to be executed in the program 
mode. 


Commands for displaying the contents of a program and handling files are 
usually executed in the command mode. This mode also enables immediate 
processing of numerical expressions, thus providing calculator-like 
features. 
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If you enter the PRINT 5*6*100 command at the Ok prompt, for example, 
GWBASIC executes it immediately in command mode: 


Ok 

PRINT 5*6*100 
3000 

Ok 


When the PRINT statement above is entered as a command (i.e., with no line 
number), the numerical expression is immediately processed and the result 
of the calculation (in this case, 3000) is displayed. More complicated 
expressions such as those containing variables and functions can be 


computed in the same manner. Use program mode to perform repeated 
calculations or complex procedures. 


The program mode is assumed when you enter a RUN command. 


How to Write a Program 


The standard procedure for writing a program in GWBASIC is: 


1. Enter a NEW command, to clear the GWBASIC program area in memory for 


entry of a new program. 


Enter an AUTO command, to assign a line number automatically to each 
statement entered. Entry of this command may be omitted. If it is 


omitted, you have to assign numbers yourself. (See Chapter 2, AUTO for 
more information.) 


Enter the statements of a program sequentially. A keying error can be 
corrected as follows: 


о To erase the preceding character or characters, press BACKSPACE. 


o To erase the entire line being entered, press ESC. 


о To correct a line already entered, follow the program correction 


procedure explained in the next section. 


When you have entered all the necessary statements, press CTRL BREAK to 
clear the AUTO command function. 


5. Enter a LIST command to display the program just entered. Check each 
statement for typing errors. 


6. Enter a RUN command to start the program. 


To store the program in a disk file, enter the SAVE command, together 


with the name you wish to call the program. This name should appear in 
double quotes ( "). 
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Using the procedure described above, write a program to obtain the real 
root of a quadratic equation. For example: 


10 INPUT "COEFFICIENT A 
20 INPUT "COEFFICIENT В 
30 INPUT "COEFFICIENT С 
40 D-B^2-4*A*C 

50 IF D«O GOTO 110 

60 X1-(-B*SQR(D) )/(2*A) 
70 X2=(-B-SQR(D) ) /(2*A) 
80 PRINT "X12";X1 

90 PRINT "Х2="; Х2 

100 STOP 

110 PRINT "NO REAL ROOT" 
120 END 


">Á 
еВ 
"D 


Press CTRL BREAK. 


Ok 
RUN 
COEFFICIENT A=?1 
COEFFICIENT B=?2 
COEFFICIENT C=?1 


Х1= -1 
X2- -1 

BREAK in 100 
Ok 


How to Make Corrections to the Current Program 


You can correct a GWBASIC program in one of two ways: line correction mode 
or character correction mode. This section describes line correction. 
Character correction is covered later in The Screen Editor section of this 
chapter. 


In the line correction mode, correct a program as follows: 


1; 


Enter а LIST command and check the contents of the program. If the 
program is not in memory, enter a LOAD command before the LIST 
command. The program is displayed in standard format. 


To interrupt the listing, press CTRL NUM LCK. To restart the listing, 
press any key other than CTRL NUM LCK. To cancel the listing, press 
CTRL BREAK. 


Add, insert, or replace a new line by assigning a line number to it. 

For example, to add a new line to a program which ends with line 100, 
assign line number 110. To insert a new line between lines 70 and 80, 
assign line number 75. To replace line 50, assign line number 50. 
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3. To delete a program line, enter only the line number of that line. To 
delete all the lines within a certain range, use a DELETE command as 
follows: 

DELETE 600 


Only line 600 is deleted. 


DELETE 300-400 
All lines between lines 300 and 400 are deleted. 


DELETE -500 
The lines up to line 500 are deleted. 


DELETE 600- 


Deletes line 600 and all higher lines. 
4. Enter a LIST command again to check the corrected program. A LIST 
command can specify any of the following ranges: 


LIST 
The whole program is displayed. 


LIST 300-400 
Lines 300 to 400 are displayed. 


LIST -500 
The lines up to line 500 are displayed. 


LIST 600- 
The lines from line 600 are displayed. 
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THE SCREEN EDITOR 


You can perform character corrections on an existing program using the screen 
editing feature. By operating the cursor control keys and edit keys, you can 
easily insert, add, or delete characters on the screen. See The Keyboard 
section in this chapter for more information. 


Screen Editor Corrections 


1. Display the program line to be corrected using a LIST or an EDIT 
command. When an EDIT command is used, only the specified line is 
displayed and the cursor is positioned at the beginning of the line. 


2. Use the cursor keys to move the cursor to the correct position. 

3. Operate the keys to correct the character. 

4. When the line is correct, press RETURN. This has the effect of 
entering the corrected line to replace the old line. If you do not 
press RETURN, the old line remains unchanged in memory. So, always 
press RETURN each time a correction is made. 

5. Usually, when you press RETURN, GWBASIC accepts the line on the screen 


and processes it. You can use this to change the line number of the 
displayed line to copy it to a new line number position. 


Screen Editing Keys and Their Functions 


The entire keyboard is discussed in detail in The Keyboard section of this 
chapter. The keys used for screen editing in GWBASIC are shown below: 


——— анаан Uo 8 M MÀ —— тт тт eS m 


G в re ji 
» = ba 


ee JP JF IUS RP гази IDE ЕТ 





Figure 1-1 Model D Keyboard with Screen Editing Keys Shaded 


The keys on the Model D's numeric keypad move the cursor to a position on 
the display screen. These keys, used in conjunction with CTRL and END, 
also perform editing functions on displayed program text. Table 1-1 lists 
the screen editing keys and their functions. 
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Key Function 


| Moves the cursor up one line. 
| Moves the cursor down one line. 
es Moves the cursor left one position. 


Moves the cursor right one position. 


CTRL Moves the cursor right to the next word. 

CTRL Moves the cursor left to the previous word. 

END Moves the cursor to the end of the current 
line. 

CTRL END Erases to the end of the current line. 

HOME Moves the cursor to the upper left corner of 
the screen. 

CTRL HOME Clears the screen and moves the cursor to the 
upper left corner. 

INS Sets insert mode ON or OFF. 

DEL Deletes the character at the current cursor 
location. 

BACKSPACE Deletes the last character typed (the character 
behind the cursor). 

ESC Erases the entire line where the cursor is 
located. 

CTRL BREAK Returns to GWBASIC command level without saving 


any editing changes made on the screen. 


Table 1-1 GWBASIC Screen Editing Keys 


Modes of Operation 


When you start GWBASIC, the Ok prompt appears on the screen. Ok means 
GWBASIC is at command level, that is, it is ready to accept commands. At 


this point, GWBASIC may be used in either command (direct) mode or program 
(indirect) mode. 
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In command mode, GWBASIC statements and commands are not preceded by line 
numbers. They are executed as they are entered. Results of arithmetic and 
logical operations may be displayed immediately and stored for later use, 

but the instructions themselves are lost after execution. This mode is 

useful for debugging and for using GWBASIC as a calculator for quick 
computations that do not require a complete program. 


Program mode is used for entering programs. Program lines are preceded by 
line numbers and are stored in memory. The program stored in memory is 
executed by entering the RUN command. 


LINE FORMAT 


Program lines in a GWBASIC program have the following syntax (square brackets 
indicate optional entries): 


line number GWBASIC STATEMENT[[:GWBASIC STATEMENT]...] RETURN 
At your option, you can place more than one GWBASIC statement on a line, but 
each statement on a line must be separated from the last by a colon (:). The 
ellipsis (...) indicates that you can repeat the previous parameter. 
A GWBASIC program line always begins with a line number and ends with a 
carriage return. Each line may contain a maximum of 255 characters or spaces, 
but most users use a maximum of 80 characters to prevent scrolling the screen. 
Line Numbers 
Every GWBASIC program line begins with a line number. Line numbers 
indicate the order in which the program lines are stored in memory. They 
are also used as references when branching and editing. 
Line numbers must be in the range O to 65529. 
In GWBASIC, a period (.) may be used in the EDIT, LIST, AUTO, and DELETE 
commands to refer to the current line. 
USING CHARACTERS 
The Character Set 
The GWBASIC character set comprises alphabetic characters (A-Z, upper and 


lower case), numeric characters (0-9), and a set of special characters (see 
Table 1-2). 
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Character Name 


Blank 

Equal sign or assignment symbol 
Plus sign 

Minus sign 

Asterisk or multiplication symbol 
Slash or division symbol 

Up arrow or exponentiation symbol 
Left parenthesis 

Right Parenthesis 

Percent sign 

Number (or pound) sign 

Dollar sign 

Exclamation point 

Comma 

Period or decimal point 

Single quotation mark (apostrophe) 
; Semicolon 

Colon 

Ampersand 

Question mark 

Less than sign 

Greater than sign 

Backslash or integer division Е 
Double quotation mark 

Underscore 


“u — 99 $k J ~ ~ Ум # | + iI 


=—VAN Ws 


Table 1-2 GWBASIC Special Characters 


Reserved Words 


Certain words or abbreviations have a special meaning in GWBASIC. These 
are called reserved words. Reserved words include all of GWBASIC’s 
commands, statements, function names, and operator names. These words 
cannot be used as variable names, although you may use a reserved word as 
part of a variable name. 


Reserved words are always separated from other GWBASIC syntax units using 
delimiters such as commas or spaces. Reserved words are: 


ABS CALL CLOSE 
AND CDBL CLS 
ASC CHAIN COLOR 
ATN CHDIR COM 
AUTO CHR$ COMMON 
BEEP CINT CONT 
BLOAD CIRCLE COS 
BSAVE CLEAR CSNG 
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CSRL IN 
CVD 


ENV I RON 
ENV | КОМ 
EOF 

EQV 
ERASE 
ERDEV 
ERDEV$ 
ERL 

ERR 
ERROR 
EXP 
FIELD 
FILES 
at. 
ЕМххххх 


RANDOM | ZE 
READ 


VARPTR 
VARPTR$ 
VIEW 
WAIT 
WEND 
WHILE 
WIDTH 
WINDOW 
WRITE 
МЕ | ТЕ» 
ХОК 
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CONSTANTS 


Constants are the actual values GWBASIC uses during execution. There are two 
types of constants: string and numeric. 


A string constant is a sequence of up to 255 alphanumeric characters enclosed 
in double quotation marks. Examples of string constants follow: 


"HELLO" 
"$25,000.00" 
“Number of Employees" 


Numeric constants are positive or negative numbers. Numeric constants in 
GWBASIC cannot contain commas. There are five types of numeric constants. 


1. Integer constants 


Whole numbers between -32768 and +32767. Integer constants do not have 
decimal points. 


2. Fixed point constants 
Positive or negative real numbers (numbers that contain decimal points). 


3. Floating point constants 
Positive or negative numbers represented in exponential form (similar to 
scientific notation). A floating point constant consists of an optionally 
signed integer or fixed point number (the mantissa) followed by the letter 
E and an optionally signed integer (the exponent). The allowable range for 
floating point constants is 10E-38 to 10E+38. Examples: 


235.988E-7 = .0000235988 
2359E6 = 2359000000 


Double precision floating point constants use the letter D instead of E. 
See Single and Double Precision Form for Numeric Constants in this chapter. 


4. Hex constants 
Hexadecimal numbers with the prefix &H. Examples: 


&H76 
&H32F 


5. Octal constants 
Octal numbers with the prefix &0 ог & Examples: 


&0347 
&1234 
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Single and Double Precision Form for Numeric Constants 


In GWBASIC, numeric constants may be either single precision or double 
precision numbers. 


A single precision constant is any numeric constant that has: 
1. Seven or fewer digits, or 

2. Exponential form using E, or 

3. A trailing exclamation point (1). 

A double precision constant is any numeric constant that has: 
1. Eight or more digits, or 

2. Exponential form using D, or 


3. А trailing number sign (#). 


Double precision numbers are stored with 17 digits of precision, and 
printed with up to 16 digits. 


Examples of single and double precision constants are listed below: 


Single Precision Double Precision 
Constants Constants 

46.8 | 345692811 

-1.09E-06 -1.09432D-06 

3489.0 3489.0# 

24,91 7654321.1234 


Table 1-3 Examples of Single and Double Precision Constants 


VARIABLES 
Variables are names used to represent values that are used in a GWBASIC 
program. You may assign the value of a variable explicitly, or you may assign 


it as the result of calculations in the program. 


Before a numeric variable is assigned a value, its value is assumed to be zero 
(0). A string variable is assumed to be null. 
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Variable Names and Declaration Characters 


GWBASIC variable names may be any length, but only the first 40 characters 
are significant. The characters allowed in a variable name are letters, 
numbers, and the decimal point. The first character in the variable name 


must be a letter. Special type declaration characters are also allowed -- 
see below. 


A variable name may not be a reserved word. GWBASIC allows embedded 
reserved words. If a variable begins with FN, it is assumed to be a call 
to a user-defined function. Reserved words include all GWBASIC commands, 
statements, function names, and operator names. 


Variables may represent either a numeric value or a string. String 
variable names are written with a dollar sign ($) as the last character. 


For example: A$ = "Sales Division". The dollar sign is a variable type 
declaration character, that is, it "declares " that the variable represents 
a string. 


In GWBASIC, numeric variable names may declare integer, single, or double 
precision values. The type declaration characters for these variable names 


are: 
% Integer variable 
| Single precision variable 
# Double precision variable 


The default type for a numeric variable name is single precision. 


Examples of GWBASIC variable names are: 


Pl# declares a double precision value 
MINIMUM! declares a single precision value 
LIMIT% declares an integer value 

N$ declares a string value 

ABC declares a single precision value 


In GWBASIC, there is a second method by which variable types may be 

declared. The GWBASIC statements DEFINT, DEFSTR, DEFSNG, and DEFDBL may be 
included in a program to declare the types for certain variable names. 

These statements are described in detail in Chapter 2. 


Array Variables 


An array is a group or table of values referenced by the same variable 
name. Each element in an array is referenced by an array variable that is 
subscripted with an integer expression. 
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An array variable name has as many subscripts as there are dimensions in 

the array. For example, V(10) would reference a value in a one-dimension 
array, T(1,4) would reference a value in a two-dimension array, and so on. 
The maximum number of dimensions for an array is 255. The maximum number 
of elements per dimension is 32767. 


Space Requirements 


Variables Bytes 
INTEGER 2 
SINGLE PRECISION 4 
DOUBLE PRECISION 8 
Arrays Bytes 
INTEGER 2 per element 
SINGLE PRECISION 4 per element 
DOUBLE PRECISION 8 per element 
Strings 


3 bytes overhead plus the present contents of the string. 


Table 1-4 Space Requirements: Variables, Arrays, Strings 


TYPE CONVERSION 


When necessary, GWBASIC converts a numeric constant from one type to another, 


for example, from single to double precision. The following rules and examples 
should be kept in mind. 


1. If a numeric constant of one type is set equal to a numeric variable of a 
different type, the number is stored as the type declared in the variable 
name. If a string variable is set equal to a numeric value or vice versa, 
a Type mismatch error occurs. Examples: 


10 А% = 23.42 
20 PRINT AX 
RUN 

23 

Or 


10 A$ = 23.42 

20 PRINT A$ 

RUN 

Type mismatch in 10 
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2. During expression evaluation, all of the operands in an arithmetic or 
relational operation are converted to the same degree of precision, that of 


the most precise operand. Also, the result of an arithmetic operation is 
returned to this degree of precision. Examples: 


10 D# = 6#/7 The arithmetic was performed 

20 PRINT D# in double precision, and the 

RUN result was returned in D# as 
.8571428571428571 a double precision value. 

10 D = 6#/7 The arithmetic was performed in 

20 PRINT D double precision, and the result was 

RUN returned to D (single precision 
.8571429 variable), rounded and printed as a 


single precision value. 


3. Logical operators (see next section) convert their operands to integers and 


return an integer result. Operands must be in the range -32768 to 32767 or 
an Overflow error occurs. 


4. When a floating point value is converted to an integer, the fractional 
portion is rounded. Example: 


10 СЖ = 55.88 
20 PRINT CX 
RUN 

56 


5. If a double precision variable is assigned a single precision value, only 
the first seven digits, rounded, of the converted number are valid. This 
is because only seven digits of accuracy were supplied with the single 
precision value. The absolute value of the difference between the printed 
double precision number and the original single precision value is less 
than 6.3E-8 times the original single precision value. Example: 


10 A = 2.04 
20 Вж = A 

30 PRINT А; В» 
RUN 


2.04 2.03999996 1853027 


EXPRESSIONS AND OPERATORS 


An expression may be a simple string or numeric constant, a variable, or it may 
combine constants and variables with operators to produce a single value. 
Operators perform mathematical or logical operations on values. The operators 
provided by GWBASIC may be divided into four categories: 


Arithmetic 
Relational 
Logical 

Functional 
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Arithmetic Operators 


The arithmetic operators, in order of precedence, are: 


Operator Operation Sample Expression 
i: Exponential X^Y 
- Negation -Х 
* Multiplication ATL 
/ Floating Point Division X/Y 
* Addi tion X+Y 
= Subtraction A-Y 


Table 1-5 Arithmetic Operation with Sample Expression 


To change the order in which operations are performed, use parentheses. 
Operations within parentheses are performed first. Inside parentheses, the 
usual order of operations is maintained. Here are some sample algebraic 
expressions and their GWBASIC counterparts. 


Algebraic Expression GWBASIC Expression 
X+2Y KEY *2 
X=Y. X-Y/Z 

Z 
—XY KVL 
Z 
XY | (X+Y) /Z 
Ё 
2! 
(X ) (X^2)^Y 
Z 
Y 
X Хара) 
X(-Y) X*(-Y) 


Table 1-6 Algebraic Expressions and GWBASIC Counterparts 
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Integer Division and Modulo Arithmetic. Two additional operators are 
available in GWBASIC: integer division and modulo arithmetic. 


Integer division is denoted by the backslash (\). The operands are rounded 
to integers (must be in the range -32768 to 32767) before the division is 
performed and the quotient is truncated to an integer. For example: 


10\4 = 2 
25.68\6.99 = 3 


The precedence of integer division is just after multiplication and 
floating point division. 


Modulo arithmetic is denoted by the operator MOD. It gives the integer 
value that is the remainder of an integer division. For example: 


10.4 MOD 4 = 2 (10/4=2 with a remainder 2) 
25.68 MOD 6.99 = 5 (26/7=3 with a remainder 5) 


The precedence of modulo arithmetic is just after integer division. 


Overflow and Division by Zero. If, during the evaluation of an expression, 
a division by zero is encountered, the Division by zero error message is 
displayed. Machine infinity with the sign of the numerator is supplied as 
the result of the division and execution continues. If the evaluation of 
an exponentiation results in zero being raised to a negative power, the 
Division by zero error message is displayed, positive machine infinity is 
supplied as the result of the exponentiation, and execution continues. 


If overflow occurs, the Overflow error message is displayed, machine 


infinity with the algebraically correct sign is supplied as the result, and 
execution continues. 
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Relational Operators 


Relational operators are used to compare two values. The result of the 
comparison is either true (-1) or false (0). This result may then be used 
to make a decision regarding program flow. (See IF, Chapter 2.) 


Operator Relation Tested Expression 
= Equal ity X = Y 
<> Inequality X <> Y 
< Less than X «€. Y 
> Greater than X > Y 
<= Less than or equal to X <= Y 
>= Greater than or equal to X>= Y 


The equal sign is also used to assign a value 
to a variable. See Chapter 2, LET. 


Table 1-7 Operators, Relation Tested, Expressions 


When arithmetic and relational operators are combined in one expression, 
the arithmetic is always performed first. For example, the expression 


X+ Y < (T-1)/Z 


is true if the value of X plus Y is less than the value of T-1 divided by 
Z. Here are more examples: 


IF SIN(X)«O GOTO 1000 


IF | MOD J <> O THEN K=K+1 


Logical Operators 


Logical operators perform tests on multiple relations, bit manipulation, or 
Boolean operations. The logical operator returns a result that is either 
true (not zero) or false (zero). In an expression, logical operations are 
performed after arithmetic and relational operations. The outcome of a 
logical operation is determined as shown in the following table. The 
operators are listed in order of precedence. 
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NOT 


NOT X 


E E E IL 


P" E ILE IL 


ра E EIL 


OR 


X OR Y 


E E EE 


P" E ILE 


ра E EY Ay 


XOR 


X XOR Y 


BR E BEL 


Юч EA fy EA Fn 


ра E E I n 


X IMP Y 


E REEÀE 


P" E ILE DL 


хе еще 


ЕОУ 


X EQV Y 


Ex fy fly EA 


Юч E In E IL 


ра E ELLE 


Table 1-8 Logical Operators 
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Just as the relational operators can be used to make decisions regarding 
program flow, logical operators can connect two or more relations and 
return a true or false value to be used in a decision (see Chapter 2, IF). 
For example: 


IF D<200 AND F<4 THEN 80 
IF 1210 OR K<O THEN 50 
IF NOT P THEN 100 


Logical operators work by converting their operands to 16-bit signed, two’s 
complement integers in the range -32768 to +32767 (if the operands are not 
in this range, an error results). If both operands are supplied as O or 

-1, logical operators return O or -1. The given operation is performed on 
these integers in bitwise fashion, i.e., each bit of the result is 

determined by the corresponding bits in the two operands. 


Thus, it is possible to use logical operators to test bytes for a 

particular bit pattern. For instance, the AND operator may be used to mask 
all but one of the bits of a status byte at a machine I/O port. The OR 
operator may be used to merge two bytes to create a particular binary 
value. The following examples demonstrate how the logical operators work. 


Example Explanations 
63 AND 16 = 16 63 = binary 111111 and 16 = binary 100000, 
so 63 AND 16 - 16 
15 AND 14 = 14 15 = binary 1111 and 14 = binary 1110, 
so 15 AND 14 = 14 (binary 1110) 
-1 AND 8 = 8 -1 = binary 1111111111111111 and 
8 = binary 1000, so -1 AND 8 = 8 
40R2=6 4 = binary 100 and 2 = binary 10, 
so 4 OR 2 = 6 (binary 110) 
10 OR 10 = 10 10 = binary 1010, so 1010 OR 1010=1010 (10) 
-1 OR -2 = -1 -1 = binary 1111111111111111 and 
-2 = binary 1111111111111110, so -1 OR 
-2 = -1. The bit complement of sixteen 
zeros is sixteen ones, which is the 
two’s complement representation of -1 
NOT X = -(X + 1) The two’s complement of any integer is 


the bit complement plus one 


Table 1-9 How Logical Operators Work 
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Functional Operators 


A function is used in an expression to call a predetermined operation that 
is to be performed on an operand. GWBASIC has intrinsic functions that 
reside in the program, such as SQR (square root) or SIN (sine). All 
GWBASIC intrinsic functions are described in Chapter 3. 


GWBASIC also allows user defined functions that are written by the 
programmer. See Chapter 2, DEF FN. 


String Operations 
Strings may be concatenated using the plus sign (+). For example: 


10 A$="FILE" : BS="NAME" 
20 PRINT A$ + B$ 

30 PRINT "NEW " + A$ + B$ 
RUN 

FILENAME 

NEW FILENAME 


Strings may be compared using the same relational operators that are used 
with numbers: 


= <> < > <= >= 


String comparisons are made by taking one character at a time from each 
string and comparing the ASCII codes. If all the ASCII codes differ, the 
lower code number precedes the higher. If, during string comparison, the 
end of one string is reached, the shorter string is said to be smaller. 
Leading and trailing blanks are significant. Examples: 


LL AA и < и АВ и 

"FILENAME" = "FILENAME" 
n X& LL > и X# и 

LL CL и > и Cl. и 

и kg и > и KG и 


"SMYTH" < "SMYTH " 
B$ < "9/12/78" where B$ = "8/12/78" 


Thus, string comparisons can be used to test string values or to 
alphabetize strings. All string constants used in comparison expressions 
must be enclosed in quotation marks. 

ERROR MESSAGES 

If GWBASIC detects an error that causes program execution to terminate, an 


error message is printed. In GWBASIC, the entire error message is printed. 
For a complete list of GWBASIC error codes and error messages, see Appendix F. 
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FILES 


A file is a collection of information on an input/output storage medium. Each 
file of information is identified by a name that is used to specify the 
particular file to be accessed by a GWBASIC command or statement. 


The filespec parameter, used in the description of commands in this and 
subsequent chapters, has the following syntax: 


[d: ][ path | filename [. ext | 


The d: indicates the drive where the required file is stored. You type in the 
letter of the floppy- or fixed-disk drive that contains the filename you 
specify. The colon (:) is required to separate the drive from path or 
filename. For example, C:FILE1. 


Path indicates the path to follow in a directory structure. If path is 
specified, it must be separated from the filename by a final backslash (\) 
character. Usually, path is entered in the form \PATHNAME\, where the first 
backslash instructs GWBASIC to begin the path search in the root directory. 
For example,C:\DATA\FILE1. See the Directory Paths section in this chapter 
for additional information on paths. 


Both drive and path are optional. If drive is omitted, the currently active 
disk drive is assumed. If path is omitted, the root directory is assumed. 


Filename specifies any valid disk file. It is a character string consisting of 
1 to 8 characters. 


An optional extension may follow a filename. It consists of a period (.) 
followed by a character string of 3 characters or less. Extension usually 
indicates the file type. 


If you specify a filename longer than 8 characters that does not contain an 
extension, GWBASIC terminates the filename at the 8th character, followed by a 
period and the subsequent 3 characters as the extension. If a filename 
contains an extension and is longer than 8 characters, only the first eight 
characters are retained. 


If you specify an extension longer than 3 characters, GWBASIC terminates the 
extension after the first 3 characters. 


When extension is omitted, .BAS is assumed. However, when it is omitted in a 
KILL, NAME, or OPEN statement, no extension (blank) is assumed. 


Only the following characters are allowed for filenames and extensions: 


Alphabetic A through Z 
Numerics О through 9 
Special symbols e * $ % ^ & |! - _ ' N ~ | 
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DEVICE NAMES 


Table 1-10 below lists the devices recognized by GWBASIC and whether they are 
used as input devices, output devices, or both. 


Device Type of I/O Device Input Output 
KYBD: Keyboard X 

SCRN: Screen X 
LPT i: Printer X 
LP ie: Printer X 
LPT3: Printer X 
COM1 : RS-232C unit number O X X 
COM? : RS-232C unit number 1 X X 
COMS : RS-232C unit number 2 X X 
A: Disk Drive 1 X X 
B: Disk Drive 2 X X 
et. Fixed disk 1 X X 


Table 1-10 Devices 


MS-DOS FILE SYSTEM 


Before Version 2.0, MS-DOS had a simple directory structure adequate for small 
(160KB to 320KB) disks. Now, with fixed disks capable of storing 5 to 20 (or 
more) million characters, the sheer number of directory entries becomes 
difficult to manage. Additionally, MS-DOS supports a wide variety of fixed 
file peripherals. The need for better disk organization is apparent. 


People tend to think in hierarchical terms (organization charts and family 
trees, for example). It is possible to organize your files on disk in a 
similar manner. | 


As an example, in a business, both the sales and accounting departments share a 
computer with a large fixed-disk drive. The individual employees use it for 
preparation of reports and for maintaining accounting information. You could 
view the organization of files on the disk in this fashion: 


« disk > 
SALES ACCOUNTING 
4 — JOHN MARY STEVE SUE 
REPORT REPORT REPORT REPORT 
other other other 
files files files 


Figure 1-2 Hierarchical File Structure 


1-26 / Starting GWBASIC 


Directory Paths 


A directory path is a series of directory names separated by the backslash 
character (\) and ending with a filename or a directory name. A path that 
Starts at the root begins with a backslash (\). 


There is a special directory entry in each directory, (denoted by ..) that 
is the parent of the directory. The root directory’s parent is itself. 


You can organize a disk so that the GWBASIC files you are not using in your 
current task do not interfere with the task. 


To specify a filename, you can use one of two methods: either specify a 
path from the root node to the file, or specify a path from the current 
node to the file. 


If you use a directory structure like the hierarchy shown in Figure 1-2 
above, and assume that the current directory is at point [*] (subdirectory 
JOHN), to reference the REPORT under JOHN, the following are all 
equivalent: 


REPORT 
\SALES \ JOHN\REPORT 
. . \JOHN\ REPORT 


To refer to the REPORT under MARY, the following are all equivalent: 


. . MARY \REPORT 
\SALES \MARY \REPORT 


To refer to the REPORT under SUE, the following are all equivalent: 


..\.. \ACCOUNT I NG\ SUE \REPORT 
\ ACCOUNT | NG\ SUE \REPORT 


There are no restrictions on the depth of a tree (the length of the longest 
path from root to leaf) except in the number of allocation units 

available. The root directory may have a fixed number of entries. This 
number varies according to the size of the disk: from 64 for single-sided 
disks to 256 for a fixed disk. For non-root directories, there is no limit 
to the number of files per directory except in the number of allocation 
units available. 


USING THE SCREEN 
GWBASIC allows drawing of text, special characters, points, lines, and more 


complex shapes in color or monochrome. Text refers to alphabetic characters, 
numbers, and special symbols contained in the character set. 
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Display Types 


Two types of display units are available with the Model D: a monochrome 
display and a color display. 


Text on the monochrome display appears on the screen in green or amber, 
with a black background. By setting a parameter in a COLOR statement, a 
blinking, reversed-image, invisible, highlighted, or underscored character 
can be displayed on the screen. 


Text on the color display can be displayed in 16 colors. 


The graphics mode allows drawing of complex pictures in many colors by 
addressing all pixels (dots) on the screen. 


The screen layout is shown below: 
Character Location (1, n) 


(n indicates column, 40 
Character Location (1, 1) or 80) 





(25, 1) (25, n) 
Border Screen 


Figure 1-3 Screen Layout 


The screen may be either 40 columns or 80 columns wide, specified by a 
WIDTH statement. 


The character location may be specified by a LOCATE statement. Use of 
POS(O) and CSRLIN functions identifies the screen location of a character. 


The area at the edge of the screen in which no characters may be displayed 


is called the border. The color of the border may also be specified with a 
COLOR statement. 
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The following statements are available for text processing in text mode: 


CLS 
COLOR 
LOCATE 
PRINT 
SCREEN 
WIDTH 
WRITE 


The following functions are provided: 


When a color display is connected, each screen can access a set of pages: 
four pages in 80x25 mode and eight pages іп 40x25 mode. In addition to the 
page to be displayed on the screen, the page to write to may be specified 
by a SCREEN statement. 

Graphics Mode 


The following statements are available in graphics mode: 


The following function is available in graphics mode: 
POINT 


Four types of resolution are available in this mode. They are selected by 
the SCREEN statement: 


Medium resolution 320x200 in four colors 
High resolution 640x200 in two colors 
High resolution 640x200 in sixteen colors 
High resolution 720x348 in monochrome 
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1. Medium resolution (320x200 in four colors) allows 320 dots (horizontal) 
and 200 dots (vertical) to be identified. Medium resolution uses color 
codes 0, 1, 2, and 3. The color codes are associated with colors via 
the palette. Palette O and palette 1 are specified in a COLOR 
statement. 


Text can be displayed in the graphics mode. Medium resolution has the 
same character size (40x25) as the text mode. The color codes for 
foreground and background are 3 and O respectively. 


2. High resolution (640x200 in two colors) allows 640 dots horizontal and 
200 dots vertical to be identified. Color O is black and color 1 is 
white. 


High resolution (640x200 in sixteen colors) allows 640 dots horizontal 
and 200 dots vertical to be identified. Colors O through 15 are used, 
in accordance with the list under the COLOR (Text) statement. 


High resolution (720x348 in monochrome) allows 720 dots horizontal and 
348 dots vertical to be identified. Color O is black and any other 
color is white. 


When text characters are displayed in high resolution, the character 
size is the same as for 80x25 in the text mode. In two color high 
resolution, the color codes for foreground and background are 1 and O 
(that is, white on black). 


Specification of Coordinates 
To draw a dot by a graphics statement, positional data is required. Give 
data in the form of coordinates, generally in the form &,y) where x 
indicates the horizontal position and y the vertical position. This is 


called absolute form, indicating an actual position on the screen. 


In addition, there is relative form, in which you specify an offset from 
the previous position referenced. The format is: 


STEP(Xoffset, Yoffset) 


Xoffset indicates the horizontal offset and Yoffset indicates the vertical 
offset. 


The last referenced position depends on the execution result of each 
graphics statement. 
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Figure 1-4 Model D Keyboard 
The keyboard of the Model D has three parts: 


о Тһе familiar typewriter area, with letters and numbers, plus several 
special symbols, discussed below. 


о The ten function keys, positioned to the left of the typewriter area. 

о The numeric keypad, positioned to the right of the typewriter, that 
resembles a calculator. 

Typewriter Keyboard 


The typewriter keyboard resembles a conventional typewriter, with letters 
and numbers in their customary places. 


Lek 


6 


| 


4 
da 
oy 


| 
4 | 





Figure 1-5 Model D Keyboard with Conventional Keys Shaded 

To display capital letters and the upper symbols on those keys with two 
characters, hold down either SHIFT key and press the desired key, just as 
you would on a typewriter. 


Instead of a manual carriage return, there is a key labeled RETURN. Most 
entries you type are completed by pressing RETURN. 
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The Model D keyboard also has a number of special symbols and features not 
found on a conventional typewriter: 


о Symbols 


Symbols like [, ], ~, and * are not usually found on standard 
typewriter keyboards, but have specific uses in computing. 


o Positioning 
To accommodate some of the new keys, some standard keys are displaced 
in different positions. See, for example, the shifted period key, 
which has been replaced by the > symbol. 

o ВАСКЅРАСЕ 


The BACKSPACE key erases as it moves from right to left. To move the 
cursor without erasing, use the (Left Arrow) key. 





Figure 1-6 Model D Keyboard with ALT, BACKSPACE, CAPS LOCK, PRTSC, and 
CTRL Keys Shaded 


o Uppercase 
The CAPS LOCK key is similar to the Shift Lock key on a typewriter, but 
only capitalizes letters. While in Caps Lock mode, you can type 
lowercase letters by holding down one of the SHIFT keys. Press 
CAPS LOCK a second time to release it. 

o РЕТЅС 
The PRTSC key (above *) stands for Print Screen. To print a hard copy 


of what is being shown on the screen, press and hold one of the SHIFT 
keys, then press PRTSC. 
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o ALT 


The ALT (Alternate) key acts like a SHIFT key. If you press and hold 
it while pressing one of the following keys, it allows you to enter a 
GWBASIC statement with one keystroke. 


A AUTO N NEXT 

B  BSAVE O OPEN 

C COLOR P РК МТ 

D DELETE О (по code) 
E ELSE Е RUN 

F FOR S | SCREEN 

с GOTO T THEN 

Н HEX$ U USING 

I INPUT V VAL 

J (по code) W WIDTH 

K KEY X XOR 

L LOCATE Y (no code) 
M MERGE Z (по code) 


You can enter characters not visible on the keys by holding the ALT key 
and typing the three digit ASCII code for the symbol you want, using 
the numeric keypad. See Appendix H, for a list of ASCII Character 


Codes. 
o CTRL 
Like the ALT key, the CTRL key allows you to enter codes and characters 


not shown on the keyboard itself. Hold CTRL and press G, for example, 
and the computer beeps. This is called BEL (for Bell) and is an ASCII 


Control Code. 


You may also use this key to edit programs with the program editor. 


Function Keys 





Figure 1-7 Model D Keyboard with Function Keys Shaded 


The Function keys (F1 to F10) are like the buttons on a car radio. You can 
set them to frequently-used commands or any desired sequence of 
characters. They can also be used as program interrupts in GWBASIC (see 


Chapter 2, ON KEY). 
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Numeric Keypad 





Figure 1-8 Model D Keyboard with Numeric Keypad Shaded 


This section of the keypad is used primarily for cursor movement editing 
functions. The Arrow, INS, and DEL keys move the cursor up, down, right, 
left, and permit insertion and deletion of characters. 


You can use these keys like a calculator by pressing NUM LCK. Then, the 
number keys O through 9 and the decimal point on the DEL key work like a 
ten-key pad. 


The SCROLL LOCK, PGUP, and PGDN keys are not used by GWBASIC, but may be 
used within a program. 


Special Key Combinations 


v 


The following combinations of key strokes perform specified functions: 
o CTRL BREAK 


Interrupts program execution and returns to GWBASIC command level. 
Exits AUTO line numbering mode. 


o CTRL NUM LCK 


Pauses the computer in the middle of a print or program process. To 
resume, press any other key except CAPS LOCK or CTRL NUM LCK. 


o CTRL ALT DEL 
Resets the system. Performs the same function as using the RESET 
button, or as switching the power OFF, then ON again, but faster. Hold 
CTRL and ALT down, then press DEL. 
GWBASIC PROGRAM EDITOR 
When GWBASIC is at command level, any line typed is processed by the GWBASIC 
program editor. This is a screen line editor, which means that you can only 


change one line at a time anywhere on the screen. Any change you make is 
implemented by pressing RETURN after typing in the command. 
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Special Program Editor Keys 


и I. 





Figure 1-9 Highlighted CTRL, HOME, END, and Cursor Arrow Keys 


Special program editing keys and their functions are described below: 


0 | The Up Arrow moves the cursor one space up. 
(e | The Down Arrow moves the cursor down one space. 
O see The Left Arrow moves the cursor left one space. If the 


cursor moves beyond the far left edge of the screen, it 
will reappear at the right end of the preceding line. 


0 ча The Right Arrow moves the cursor right one space. If the 
cursor moves beyond the far right edge of the screen, it 
will reappear at the left end of the following line. 


о СТЕ. — This combination of keys pressed simultaneously moves the 
cursor to the next word. A "word" is any character ог 
group of characters beginning with a letter or number 
separated by blanks or special character. For example: 


JOHN, 17 MARK/OBEGE 


contains four words. The first letter of each word is 
shown in boldface for emphasis. 


o | CTRL-- These keys move the cursor to the left of the previous 
Word. 
o HOME Moves the cursor to the upper left corner of the screen. 


o CTRL HOME Clears the screen and moves the cursor one space up. 


о END Moves the cursor to the end of the logical line. 
Characters typed from this position are added to the end of 
the line. 


Note: A logical line is a string of text that GWBASIC 
treats as a unit. A logical line may extend over more than 
one physical screen line by typing more characters than can 
be displayed on a single line. The cursor wraps around to 
the next screen line. 
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o СТЕ END Erase to the end of the logical line from the present 
cursor position. All screen lines are erased until the 
terminating carriage return is found. 


p 
1 4 


aal PETTEE EE 





Figure 1-10 Highlighted CTRL, INS, DEL, BACKSPACE, ESC, BREAK, and TAB 
Keys 


o INS Sets insert mode to ON. If already ON, it turns insert 
mode OFF. When insert mode is OFF, any character typed 
replace existing characters on a line. When it is ON, 
existing characters are pushed to the right and to 
succeeding lines as new ones are inserted. 


o DEL Deletes the character at the present cursor position, and 
moves characters from right to left to fill in the blank 
created by the deletion. 


o ВАСКЅРАСЕ Deletes the last character typed (the character to the left 
of the cursor). 


o  ESC Erases the entire line, when pressed anywhere in the line. 
The line is not passed to GWBASIC for processing. If it is 


a program line, it is not erased from the program in 
memory. 


o  CTRL BREAK Returns to command level. Changes made to the current line 
being edited are not saved. 


о ТАВ When the insert mode is OFF, pressing TAB moves the cursor 
to the next tab stop without tampering with the text. When 
the insert mode is ON, pressing the tab key replaces the 
characters from the current cursor position to the next tab 
stop with blanks. There are tab stops every eight 
characters, at screen position 1, 9, 17, 25, and so on. 
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CHAPTER 2 
GWBASIC COMMANDS AND STATEMENTS 


All of the GWBASIC commands and statements are described in this chapter. Each 
description is formatted as follows: 


Purpose 


Explains the use of the command or statement. 


Syntax 


Shows the correct format for the command or statement. 


Comments 


Describes in detail how the command or statement is used. 


Examples 
Shows sample programs or program segments that demonstrate the use of the 
command or statement. 

Reference 


Lists other sections or GWBASIC commands you should read about for 
additional related information. 


AUTO 


Purpose 


Generates a line number automatically after every carriage return. 


Syntax 


AUTO [//ne number |, increment | 


Comments 


AUTO begins numbering at line number and increments each subsequent line 
number by increment. The default for both values is 10. If line number is 
followed by a comma but increment is not specified, the last increment 
specified in an AUTO command is assumed. 


If AUTO generates a line number that is already being used, an asterisk (*) 
is printed after the number to warn the user that any input replaces the 
existing line. However, pressing RETURN immediately after the asterisk 
saves the line and generates the next line number. 


AUTO is terminated by pressing CTRL BREAK. The line where CTRL BREAK is 
typed is not saved. After CTRL BREAK is pressed, GWBASIC returns to 
command level. 


Examples 
AUTO 100,50 


Generates line numbers 100, 150, 200... 


AUTO 


Generates line numbers 10, 20, 30, 40... 
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BEEP 


Purpose 


Sounds the speaker at approximately 1000 Hz for 1/4 second. 


Syntax 


BEEP 


Comments 


Both BEEP and PRINT CHR$(7) have the same effect. In GWBASIC use PRINT 
CHR (7). 


Example 


100 FOR 1=1 to 5 

170: BEEP 

120 FOR Ј=0 ТО 100:NEXT J 
130 NEXT | 

140 END 
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BLOAD 


Purpose 


Allows a file to be loaded anywhere in user memory. 


Syntax 


BLOAD f//espec |, offset ] 


Comments 


Filespec is a valid string expression containing the device and filename. 

If the device name is omitted, the device in current use is assumed. When 
filespec does not agree with the rules concerning filenames, a Bad file 
name error is displayed and loading is discontinued. 


Offset is a valid numeric expression returning an unsigned integer in the 
range 0 to 65535. This is the offset into the segment declared by the last 
DEF SEG statement. If offset is omitted, the offset specified at BSAVE is 
assumed. That is, the file is loaded into the same location it was saved 
from. If offset is specified, a DEF SEG statement should be executed 

before the BLOAD. When offset is used, GWBASIC assumes you want to BLOAD 
at an address other than the one saved. 


This statement loads the memory image file (assembly language program, 
screen data, etc.) as specified in the filespec into user memory. BLOAD 

and BSAVE are most useful for loading and saving machine language programs 
(see CALL). However, use of BLOAD and BSAVE is not restricted to only 
machine language programs. Any segment may be specified as the source of 
target for these statements using the DEF SEG statement. 


WARNING 
BLOAD does not perform an address range check. That is, it is possible to 


BLOAD anywhere in memory. You must not BLOAD over GWBASIC’s stack, BASIC 
Program or GWBASIC's variable area. 


Example 
100 ‘Load V-RAM data from "SCR" 
110 DEF SEG=&HB800 
120 BLOAD ^SCR".O0 


Reference 


CALL, BSAVE 
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BSAVE 


Purpose 


Allows portions of the users memory to be saved on the specified device. 


Syntax 


BSAVE f//espec , offset , length 


Comments 


Filespec is a valid string expression containing the device, filename, and 
extension. A path may be specified if necessary. 


Offset is a valid numeric expression returning an unsigned integer in the 
range O to 65535. This is the offset into the segment declared by the last 
DEF SEG to start saving from. 


Length is a valid numeric expression returning an unsigned integer in the 
range 1 to 65535. This is the length of the memory image to be saved. 


BLOAD and BSAVE are most useful for loading and saving assembly language 

programs (see CALL). However, BLOAD and BSAVE are not restricted to only 
machine language programs. Any segment may be specified as the source or 
target for these statements via the DEF SEG statement. 


When using a disk drive, if the device is not specified, the one in current 
use is assumed. 


If the filename specified is less than 1 character or greater than 8 

characters in length, a Bad file name error is issued and the save is 
aborted. 

If offset is omitted, a Syntax error is issued and the save is aborted. A 
DEF SEG statement should be executed before the BSAVE. The last known DEF 
SEG address is always used for the save. 


If length is omitted, a Syntax error is issued and the save is aborted. 
Example 

100 DEF SEG=&HB800 

120 BSAVE "SCR",0, &H8000 


Reference 


BLOAD, CALL 
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CALL 


Purpose 


The CALL statement is the recommended way of interfacing assembly language 
programs with GWBASIC. 


Syntax 


CALL variable name [Cargument list[, argument list ]...)] 


Comments 


Variable name contains the address that is the starting point in memory of 
the subroutine being called. Argument list contains the variables or 
constants, separated by commas, that are to be passed to the routine. 


The CALL statement transfers program control to an assembly language 
subroutine at the memory location whose address is expressed by variable 
name. (See the USR function for another way of interfacing assembly 
language programs with GWBASIC.) 


Note: A variation of the CALL statement is CALLS. CALLS is similar to 
CALL, except that it passes segmented addresses of all arguments, whereas 
CALL passes unsegmented addresses. CALLS should be used when accessing 
routines written with the FORTRAN calling convention. All FORTRAN 
parameters are call-by-reference segmented address. 


CALLS uses the segment address defined by the most recently executed DEF 
SEG statement to locate the routine being called. 


Example 


100 DEF SEG=&H800 
110 BLOAD "MACHINE EXE" ,O ‘Load machine routine 


300 SUBO=0 
310 CALL SUBO(A,B,C) 


Reference 


DEF SEG, DEF USR 
Appendix C 
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CHAIN 


Purpose 


Calls a program and passes variables to it from the current program. 


Syntax 


CHAIN [MERGE | fi /espec [,[/ine number exp] |, ALL И, DELETE range ]] 


Comments 


Filespec is the name of the program that is called, in the format 
H:][ path | fi /ename |. ext ]. For example: 


CHA I N"PROD1" 


Line number exp is a line number or an expression that evaluates to a line 
number in the called program. It is the starting point for execution of 
the called program. If it is omitted, execution begins at the first line. 


Note: The CHAIN statement with MERGE option leaves the files open and 
preserves the current OPTION BASE setting. If the MERGE option is omitted, 
CHAIN does not preserve variable types or user-defined functions for use by 
the chained program. That is, any DEFINT, DEFSNG, DEFDBL, DEFSTR, or DEFFN 


statements containing shared variables must be restated in the chained 
program. 


Examples 
CHAIN”PROG1”,1000 
Line number exp is not affected by a RENUM command. 
Every variable in the current program is passed to the called program. If 


the ALL option is omitted, the current program must contain a COMMON 


statement to list the variables that are passed (see COMMON below). For 
example: 


CHA IN" PROG1" , 1000, ALL 
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If the MERGE option is included, it allows a subroutine to be brought into 
the GWBASIC program as an overlay. That is, a MERGE operation is performed 
with the current program and the called program. The called program must 
be an ASCII file if it is to be MERGEd. For example: 

CHAIN MERGE"OVRLAY" , 1000 
After an overlay is brought in, it is usually desirable to delete it so 
that a new overlay can be brought in. To do this, use the DELETE option. 
For example: 

CHAIN MERGE"OVRLAY2", 1000, DELETE 1000-5000 


The line numbers in range are affected by the RENUM command. 
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CHDIR 


Purpose 


Changes the current directory. 


Syntax 


CHDIR pathname 


Comments 


Pathname is a string expression not exceeding 128 characters that 
identifies the directory which is to be the current directory. CHDIR works 
exactly like the MS-DOS command CHDIR. 

Note: You can create subdirectories within directories as in MS-DOS. Use 


the MKDIR command format. Remember to enclose the subdirectory names in 
quotation marks. 


Examples 
Refer to the sample directory shown in Chapter 1, Figure 1-2. Assuming 
that your current directory is the root directory, make SALES the current 
directory on Drive A, and ACCOUNTING the current directory on Drive B: 
CHDIR "SALES" 
SALES is now the current directory on Drive A. 
CHDIR "B:ACCOUNT ING" 
ACCOUNTING is now the current directory on Drive B. 
Possible errors which may occur with the CHDIR command are: 
Bad fil ename 
Path not found 


Path/File Access error 


Subsequent usage of A:filespec refers to files in the directory SALES. 
Usage of B:filespec refers to files in the B:ACCOUNTING directory. 
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CIRCLE 


Purpose 
Draws a circle with a center and radius as indicated by the first of its 
arguments. 

Syntax 


CIRCLE ( xcenter,ycenter ), radius |, color |, start , end |, aspect ]]] 


Comments 


The xcenter and ycenter coordinates can be specified in either absolute or 
relative form. For color display, refer to Using the Screen, Graphics Mode 
in Chapter 1. 


Radius is the major axis of the circle, expressed in points. If the circle 
drawn is too large, parts of it may run off the screen. 


Color specifies the color of the line segment. For the relationship 
between color and the actual colors, see COLOR below. The range of color 
depends on the graphics mode as follows: 


Monitor Mode Range of Color Default Value 
Color 320x200 О through 3 3 
Color 640x200 0,1 1 
Color 640x200 O through 15 7 
Monochrome 720x348 0,1 1 


The start and end angle parameters are radian arguments between -2*pi and 
2*pi, which allows you to specify where the drawing of the circle begins 
and ends. If the start or end angle is negative (0 is not permitted), the 
circle is connected to the center point with a line, and the angles are 
treated as if they were positive (this is different from adding 2*pi). 


Aspect ratio refers to the ratio of x radius to y radius. The default 
values are 5/6 for the 320 x 200 mode, 5/12 for the 640 x 200 mode, and 
2/3 for the 720 x 348 mode. If the aspect ratio is less than 1, the radius 
is given in x-pixels. If it is greater than 1, the radius is given in y- 
pixels. The standard relative notation may be used to specify the center 
point. 
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CLEAR 


Purpose 
Sets all numeric variables to zero, sets all string variables to null, and 
closes all open files. Optionally, sets the end of memory and the amount 
of stack space. 


Syntax 


CLEAR [,[ expression? ||, express/on2 |! 


Comments 


Expressionl is a memory location which, if specified, sets the highest 
location available for use by GWBASIC. 


Expression2 sets aside stack space for GWBASIC. The default is 512 bytes 
or one-eighth of the available memory, whichever is smaller. 
Examples 
CLEAR | 
CLEAR ,32768 


CLEAR ,,2000 
CLEAR 32768,2000 
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CLOSE 


Purpose 


Concludes I/O to a disk file. 


Syntax 


CLOSE || #] f//e number [,[ #] fi /e number ]...] 


Comments 


File number is the number under which the file was OPENed. A CLOSE with no 
arguments closes all open files. 


The association between a particular file and file number terminates upon 
execution of CLOSE. The file may then be reOPENed using the same or a 
different file number. Likewise, that file number may now be reused to 
OPEN any file. A CLOSE statement for a sequential output file writes the 
final buffer of output. The END, NEW, RESET, SYSTEM, or RUN commands 
without the R option always close all disk files automatically (STOP does 
not close disk files). 


Examples 


See Appendix A. 
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CLS 


Purpose 


Erases the current active screen page. 


Syntax 


CLS 


Comments 


The CLS statement returns the cursor to home position in the upper left 
corner of the screen. 


The SCREEN statement forces a screen clear if the resultant screen mode 
created is different than the mode currently in force. 


The screen may also be cleared by pressing CTRL HOME. 


Reference 


SCREEN 
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COLOR (Text) 


Purpose 


Sets the foreground, background, and border colors on the text screen. 


Syntax 


COLOR || foreground ||, background ||, border |) 


Comments 
SCREEN 0: 


Foreground is a numeric expression containing a value 0 to 31. It 
specifies the color of the characters. 


Background is a numeric expression containing a value 0 to 7. It specifies 
the color of the background. 


Border is a numeric expression containing a value 0 to 15. It specifies 
the color of the border screen. 


When a color display is connected, the following colors are available for 


foreground: 
O Black 8 Gray 
1 Blue 9 Light blue 
2 Green 10 Light green 
3 Cyan 11 Light суап 
4 Red 12 Light red 
5 Magenta 13 Light magenta 
6 Brown 14 Yellow 
7 White 15 High-intensity white 


When 16 is added to the above color codes, the character starts blinking. 
Of the above color codes O through 7, only one color is used for 
background. 

SCREEN 3: 


Foreground is a numeric expression containing a value 0 to 15. It 
specifies the color of the characters. 


Background is a numeric expression containing a value O to 15. It 
specifies the color of the background. 


Foreground and background can not have the same values. 
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Border can not be specified using SCREEN 3. 


MONOCHROME DISPLAY: 


When a monochrome display is connected, the following colors are available 
for foreground: 


0 Black 
1 Underscored white 
2-7 White 


When using a color display, if you add 8 to a color code shown above, that 
character is highlighted. For example, 10 is high-intensity white. (Note 
that there is no high-intensity black.) When 16 is added, the character 
starts blinking. 


For example, 16 is a blinking black character and 31 is a blinking high- 
intensity white character. 


When a monochrome display is connected, the following colors are available 
for background. 


0-6 Black 
7 White 


Note: Each parameter can be omitted. If it is omitted, the old value 
remains. If the value of a parameter exceeds 31, ап Illegal function call 
error message is displayed. The old value remains. If a COLOR statement 
terminates with a comma, a Missing operand error is displayed, but the 
specified color change remains valid. For example, the following statement 

is illegal: 


COLOR 5, 
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COLOR (Graphics) 


Purpose 


Sets the colors to be used in the graphics mode. 


Syntax 


COLOR [background ][,loa/ette |! 


Comments 


Background is a numeric expression to specify the color of the background. 
Values O through 15 are allowed for background. For the relationship 


between these values and the actual colors, see the COLOR (Text) statement 
above. 


Palette is a numeric expression to select a color palette. 


In SCREEN 1, the colors available for selection by each palette are: 


Color Palette 0 Palette 1 

0 Background Background 
1 Green Cyan 

2 Red Magenta 

3 Brown White 


If a palette is an even number, palette O is selected; if it is an odd 
number, palette 1 is selected. 


Each parameter can be omitted. If it is omitted, the old value remains. 


If the value of a parameter exceeds 31, an lllegal function call error 
occurs. In this case, the old value remains. 


Example 


o SCREEN 1 
10 COLOR 9,1 
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COM 


Purpose 


Prepares for trapping from a communications port. 


Syntax 
СОМ( port number ) ON 


COM( port number ) OFF 
COM(port number ) STOP 


Comments 


Port number is the communication port number, 1 or 2. 


Incoming communications can either be trapped (ON), ignored (OFF), or 
stopped (STOP). 


After COM(port number) ON is set, the ON COM statement traps all incoming 
communications from the specified port, handling them as specified in the 
ON COM statement. 


When COM(port number) OFF is used, all incoming communications are not 
trapped and are ignored. 


The COM(port number) STOP statement does not allow trapping but holds the 


incoming communications until the COM(port number) ON statement is used to 
allow trapping of the communications that have been STOPped. 
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COMMON 


Purpose 


Passes variables to a CHAINed program. 


Syntax 


COMMON уаг/аБ/е ||, variab/e |...) 


Comments 


The COMMON statement is used in conjunction with the CHAIN statement. 
COMMON statements may appear anywhere in a program, although it is 
recommended that they appear at the beginning. The same variable cannot 
appear in more than one COMMON statement. Array variables are specified by 
appending ( ) to the variable name. If all variables are to be passed, use 
CHAIN with the ALL option and omit the COMMON statement. 


Example 


100 COMMON A,B,C,D( ),G$ 
110 CHAIN "PROG3", 10 
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CONT 


Purpose 
Continues program execution after CTRL BREAK has been pressed, or a STOP or 
END statement has been executed. 

Syntax 


CONT 


Comments 
The program resumes at the point where the break occurred. If the break 
occurred after a prompt from an INPUT statement, execution continues with 
the reprinting of the prompt (? or prompt string). 
CONT is usually used in conjunction with STOP for debugging. When 
execution is stopped, intermediate values may be examined and changed using 
direct mode statements. Execution may be resumed with CONT or direct mode 
GOTO, which resumes execution at a specified line number. With GWBASIC, 
CONT may be used to continue execution after an error. 


CONT is invalid if the program has been edited during the break. 


Examples 


See STOP for examples. 
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DATA 


Purpose 


Stores the numeric and string constants that are accessed by the program’s 
READ statement(s). 


Syntax 


DATA constant [[, constant ]...] 


Comments 


DATA statements are nonexecutable and may be placed anywhere in the 
program. A DATA statement may contain as many constants as fit on a line 
(separated by commas), and any number of DATA statements may be used in a 
program. See READ for additional information. 


The READ statements access the DATA statements in order (by line number) 
and the data contained therein may be thought of as one continuous list of 
items, regardless of how many items are on a line or where the lines are 
placed in the program. 


Constant may contain numeric constants in any format: fixed point, 
floating point, or integer (no numeric expressions are allowed). String 
constants in DATA statements must be surrounded by double quotation marks 
only if they contain commas, colons, or significant leading or trailing 
spaces. Otherwise, quotation marks are not needed. 


The variable type (numeric or string) given in the READ statement must 
agree with the corresponding constant in the DATA statement. 


DATA statements may be reread from the beginning of the list using the 
RESTORE statement. 


Examples 


See READ for examples. 
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DEF FN 


Purpose 


Defines and names a function that is written by the user. 


Syntax 


DEF FNname [С parameter /ist )]= function definition 


Comments 


Name must be a legal variable name. This name, preceded by FN, becomes the 
name of the function. Parameter list comprises those variable names in the 
function definition that are to be replaced when the function is called. 

The items in the list are separated by commas. 


Function definition is an expression that performs the operation of the 
function. It is limited to one line. Variable names that appear in this 
expression serve only to define the function; they do not affect program 
variables that have the same name. 


A variable name used in a function definition may or may not appear in the 
parameter list. If it does, the value of the parameter is supplied when 


the function is called. Otherwise, the current value of the variable is 
used. 


The variables in the parameter list represent, on a one-to-one basis, the 
argument variables or values that are given in the function call. 


In GWBASIC, user-defined functions may be numeric or string. If a type is 
specified in the function name, the value of the expression is forced to 

that type before it is returned to the calling statement. If a type is 
specified in the function name and the argument type does not match, а Туре 
mismatch error occurs. 


A DEF FN statement must be executed before the function it defines may be 


called. If a function is called before it has been defined, an Undefined 
user function error occurs. DEF FN is illegal in the direct mode. 


Example 


410 DEF FNAB(X, Y)=X*3/Y*2 
420 T=FBAB(I, J) 


Line 410 defines the function FNAB. The function is called in line 420. 
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DEFINT/SNG/DBL/STR 


Purpose 
Declares variable types as integer, single precision, double precision, or 
string. 

Syntax 
DEFtype range(s) of /etters 


where type is INT, SNG, DBL, or STR 


Comments 
A DEFtype statement declares that the variable names beginning with the 
letter(s) specified are that type variable. However, a type declaration 
character always takes precedence over a DEFtype statement in the typing of 
a variable. 
If no type declaration statements are encountered, GWBASIC assumes all 
variables without declaration characters are single precision variables. 
Examples 
10 DEFDBL L-P 


All variables beginning with the letters L, M, N, O, and P are double 
precision variables. 


10 DEFSTR A 


All variables beginning with the letter A are string variables. 


10 DEFINT 1-N,W-Z 


All variables beginning with the letters I, J, K, L, M, N, W, X, Y, and 
L are integer variables. 
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DEF SEG 


Purpose 


Defines the current segment of storage. 


Syntax 


DEF SEG [= address ] 


Comments 


Address is a valid numeric expression returning an unsigned integer in the 
range O to 65535. 


The address specified is saved for use as the segment required by the 
BLOAD, BSAVE, PEEK, POKE, VARPTR, USR, and CALL statements. 


If the address option is omitted, the segment to be used is set to 
GWBASIC's Data Segment. This is the initial default value. 


If the address option is given, it should be a value based upon a 16-byte 
boundary. 


For example, if address is set at &H800, the starting address becomes 
&H8000. 


GWBASIC does not perform additional checking to assure that the resultant 
segment:offset value is valid. 


DEF and SEG must be separated by a space. Otherwise, GWBASIC interprets 
the statement DEFSEG-100 to mean "assign the value 100 to the variable 
DEFSEG." 


Any value entered outside of this range (0 to 65535) results in an || legal 
function call error. The previous value is retained. 


Example 


100 PRINT 

110 DEF SEG=&H800 

120 DT=&H55 

130 FOR AD-O TO 32000 STEP 2 
140 POKE AD,DT 

150 NEXT AD 

160 END 
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DEF USR 


Purpose 


Specifies the starting address of an assembly language subroutine. 


Syntax 


DEF USR[ digit ]= integer expression 


Comments 


Digit may be any digit from 0 to 9. The digit corresponds to the number of 
the USR routine whose address is being specified. If digit is omitted, 

DEF USRO is assumed. The value of integer expression is the starting 
address of the USR routine. See Appendix C, Assembly Language Subroutines, 
for more information. 


Any number of DEF USR statements may appear in a program to redefine 
subroutine starting addresses, thus allowing access to as many subroutines 
as necessary. 


Example 


200 DEF USRO=24000 
210 X-USRO(Y^2/2.89) 
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DELETE 


Purpose 


Deletes program lines. 


Syntax 


DELETE | //ое number ][- //ne number ] 


Comments 


GWBASIC always returns to command level after DELETE is executed. If line 
number does not exist, an |! legal function call error occurs. 


Examples 
DELETE 40 
Deletes Line 40. 


DELETE 40-100 


Deletes lines 40 through 100. 


DELETE -40 


Deletes all lines up to and including line 40. 
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DIM 


Purpose 


Specifies the maximum values for array variable subscripts and allocates 
storage accordingly. 


Syntax 


DIM //st of subscripted variables 


Comments 


If an array variable name is used without a DIM statement, the maximum 
value of its subscript(s) is assumed to be 10. If a subscript is used that 
is greater than the maximum specified, a Subscript out of range error 

occurs. The minimum value for a subscript is always 0, unless otherwise 
specified with the OPTION BASE statement. 


The DIM statement sets all the elements of the specified arrays to an 
initial value of zero. 


10 DIM A(20) 

20 FOR 1=0 TO 20 
30 READ A(1) 

40 NEXT | 
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DRAW 


Purpose 


Draws figures on the screen. 


Syntax 


DRAW command string 


Comments 


A GML command is a single character within a command string, optionally 
followed by one or more arguments. 


A shape is defined using the command string. This shape is displayed when 
the DRAW statement is executed. GWBASIC interprets the command string 
letter by letter, and executes it. The GML command is composed of movement 
commands. 


Each of the following movement commands begin movement from the current 
graphics position. This is usually the coordinate of the last graphics 

point plotted with LINE, PSET, or another GML command. The n in the 
following commands indicates the distance of movement. The actual points 
moved is n adjusted to the scale factor set by the S command. 


Un Move up 

Dn Move down 

Ln Move left 

Rn Move right 

En Move diagonally up and right 
Fn Move diagonally down and right 
Gn Move diagonally down and left 
Hn Move diagonally up and left 


J D Direction of Movement 


Figure 2-1 DRAW Commands -- Direction of Movement 
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Mx,y 


Move absolute or relative. If x is preceded by a plus sign (+) or 
minus sign (-), x and y are added to the current graphics position and 
connected to the current position with a line. Otherwise, a line is 
drawn to point x,y from the current position. 


The spacing of points in horizontal, vertical, and diagonal movements 
is influenced by the screen aspect ratio (screen width divided by the 
screen height). 


The following prefix commands may precede any of the above movement 
commands. 


B 


Move but don’t plot any points. 


N 
Move but return to original position when done. 

An: 
Sets angle n. n may range from O to 3 where O is O degrees, 1 is 90 
degrees, 2 is 180 degrees, and 3 is 270 degrees. Figures rotated 90 or 
270 degrees are scaled so that they appear the same size as with O or 
180 degrees on a monitor with the standard aspect ratio of 4/3. 

Cn: 
Sets color n. The default is described in CIRCLE statement. 

Sn: 


Sets scale factor. п may range from 1 to 255 and 1/4 of this value 
becomes the scale factor. For example, if 1 is used, the scale factor 
is 1/4. The scale factor is multiplied by the distances given with U, 
D, L, К, Е, Е, б, Н or relative M commands to get the actual distance 
traveled. 


Ppaint color,border color 
Paint color chooses an attribute from the attribute range for the 
current screen mode. The border color parameter sets the border color 
of the figure to be filled in the attribute range for the current 


screen mode. You must specify both paint color and border color. 


TAde grees 


Rotate degrees. Degrees must be in the range -360 to 360 degrees. If 
degrees 15 positive, rotation is counterclockwise. If degrees 15 
negative, rotation is clockwise. 
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Xstring: 


Executes a substring (not supported by GWBASIC compiler). This 
powerful command allows you to execute a second substring from a 
string, much like GOSUB in GWBASIC. You can have one string execute 
another, which executes a third, and so on. 


Numeric arguments can be constants such as 123 or-variable: , where 
variable is the name of a variable. 


The semicolon (;), besides being used with variables, must be written in 
the X command. In the standard commands defined in the argument, the 
semicolon can also be used to separate commands. 


Reference 


COLOR 


Examples 


100 CLS 

110 SCREEN 1 

120 H=199:W=319 

130 DRAW "ВМО,О" 

140 WHILE H>=1 

150 DRAW "R2W;D-H;L2W;U-H;" 
160 HO=H/8; WO=W/8 

170 DRAW "BR-2WO; BD-HO; " 
180 H=H*3/4 

190 W-W*3/4 

200 WEND 

210 END 


DRAW "050650050150" ‘Draw a box 
DRAW "BE10" ‘Move up and right into box 
DRAW "P1,3" ‘Paint interior 


FOR D=0 TO 360 ‘Draw some spokes 
DRAW "TA=D;NU50" 
NEXT D 


If you have a monochrome monitor, use SCREEN 3 instead of SCREEN 1 in line 110, 
and set the H and W values in line 120 to 347 and 719. If you have a color 
monitor and want to run the program in 16 color mode, use SCREEN 3 instead of 
SCREEN 1 in line 110, and set the H and W values in line 120 to 199 and 639. 
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EDIT 


Purpose 


Enters Edit Mode at the specified line. 


Syntax 


EDIT //ne number 
EDIT , 


Comments 


In Edit Mode, it is possible to edit portions of a line without retyping 
the entire line. Upon entering Edit Mode, GWBASIC types the line number of 
the line to be edited, then types a space for an Edit Mode subcommand. 


Line number is the program line number of a line existing in the program. 
If there is no such line, the Undefined Line Number error message is 
displayed. 


If you have just entered a line and wish to go back and edit it, entering a 
period (.) after the EDIT command enters Edit Mode at the current line. 
The line number symbol (.) always refers to the current line. This command 
can be used when an error message appears or immediately after a STOP 
command. 


The LIST command is usually used to display the contents of a program. 
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END 


Purpose 


Terminates program execution, closes all files and returns to command 
level. 
Syntax 


END 


Comments 
END statements may be placed anywhere in the program to terminate 
execution. Unlike the STOP statement, END does not cause a BREAK message 
to be printed. An END statement at the end of a program is optional. 
GWBASIC always returns to command level after an END is executed. 


Example 


520 IF K>1000 THEN END ELSE GOTO 20 
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ENVIRON 


Purpose 


Modifies a parameter in MS-DOS Environment String Table. 


Syntax 


ENVIRON string 


Comments 


String is a string expression. The value of the expression must be of the 
form parameter-id=text, or parameter-id text. Everything to the left of 

the equal sign or space is assumed to be a parameter, and everything to the 
right is assumed to be text. 


If the parameter-id has not previously existed in the Environment String 
Table, it is appended to the end of the table. If the parameter-id exists 
on the table when ENVIRON is executed, the existing parameter-id is deleted 
and the new one is appended to the end of the table. 


The text string is the new parameter text. If the text is a null string 

(") or is only a semicolon (;), then the existing parameter-id is removed 

from the table and the table is compressed. 

ENVIRON can be used to change the PATH parameter for a child process, or to 

pass parameters to a child by inventing a new Environment Parameter (see 

MS-DOS PATH command). 

Possible errors include parameters that are not strings and an Out of 

memory error when no more space can be given to the Enviroment String 

Table. The amount of free space in the table is usually very small. 
Examples 

PATH=A: \ 


This MS-DOS command creates a default PATH to the root directory on 
Drive А:. 


ENVIRON "РАТН=А : SALES; A: ACCOUNT I NG" 


Changes the PATH to a new value. 
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ENVIRON "SALES-PLAN" 


Adds a new parameter to the Environment String Table. The Environment 
String Table now contains: 


PATH=A: SALES; A: ACCOUNT I NG 
SALES-PLAN 


By entering 
ENVIRON "SALES=; " 


the SALES entry is removed from the table. 


Reference 


ENVIRON$, SHELL 
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ERASE 


Purpose 


Eliminates arrays from a program. 


Syntax 


ERASE //st of array variables 


Comments 


You can redimension arrays after they are erased, or use the previously 
allocated array space in memory for other purposes. If an attempt is made 
to redimension an array without first erasing it, a Redimensioned array 
error occurs. 


Example 


450 ERASE А,В 
450 DIM В(99) 
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ERROR 


Purpose 


Simulates the occurrence of a GWBASIC error or allows error codes to be 
defined by the user. 


Syntax 


ERROR /nteger expression 


Comments 


The value of integer expression must be greater than O and less than 255. 
If the value of integer expression equals an error code already in use by 
GWBASIC (see Appendix F), the ERROR statement simulates the occurrence of 
that ee and the corresponding error message is printed. (See Example 1 
below. 


To define your own error code, use a value that is greater than any used by 
GWBASIC error codes. It is preferable to use the highest available values, 
so compatibility may be maintained when more error codes are added to 
GWBASIC. This user-defined error code may then be conveniently handled in 
an error trap routine (see Example 2 below). 


If an ERROR statement specifies a code for which no error message has been 
defined, GWBASIC responds with the message Unprintable error. Execution 
of an ERROR statement for which there is no error trap routine causes an 
error message to be printed and execution to halt. 


Examples 


LIST 

10 S = 10 

20T = 5 

30 ERROR S + T 

40 END 

Ok 

RUN 

String too long in 30 


Or, in direct mode: 


Ok 

ERROR 15 (You type this line) 

String too long (GWBASIC replies with this line) 
Ok 


GWBAS/IC Commands and Statements / 2-35 


110 ON ERROR GOTO 400 
120 INPUT "WHAT IS YOUR BET":B 
130 IF B > 5000 THEN ERROR 210 


400 IF ERR = 210 THEN PRINT 
"HOUSE LIMIT IS $5000" 
410 IF ERL = 130 THEN RESUME 120 
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FIELD 


Purpose 


Allocates space for variables in a random file buffer. 


Syntax 


FIELD [#] fi /e number, field width AS string variable... 


Comments 


To get data out of a random buffer after a GET, or to enter data before a 
PUT, you must execute a FIELD statement. 


File number is the number under which the file was OPENed. Field width is 
the number of characters to be allocated to string variable. For example: 


FIELD 1, 20 AS N$, 10 AS ID$, 40 AS ADDS 


allocates the first 20 positions (bytes) in the random file buffer to the 
string variable N$, the next 10 positions to ID$, and the next 40 positions 
to ADD$. FIELD does not place any data in the random file buffer. (See 
LSET/RSET and GET.) 


The total number of bytes allocated in a FIELD statement must not exceed 
the record length specified when the file was OPENed. Otherwise, a 
Field overflow error occurs (the default record length is 128). 


Any number of FIELD statements may be executed for the same file, and all 
FIELD statements that have been executed are in effect at the same time. 


Note: Do not use a FIELDed variable name in an INPUT or LET statement. 
Once a variable name is FIELDed, it points to the correct place in the 


random file buffer. If a subsequent INPUT or LET statement with that 
variable name is executed, the variable’s pointer is moved to string space. 


Examples 


See Appendix A. 
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FILES 


Purpose 


Displays the names of files on the disk. 


Syntax 


FILES [f//espec ] 


Comments 


Filespec is a string expression used to specify the file. 


When the filespec contains only the file name, all files using that name 
are displayed. When filespec is omitted, all the files on the current 
drive are listed. The filename specified may contain wildcard characters. 
Question marks (?) match any character in the filename or extension. An 


asterisk (*) as the first character of the filename or extension matches 
any file or extension. 


If the disk drive is specified in the filespec, the files on that drive are 


displayed. If the disk drive is not specified, the current drive is 
assumed. 


Examples 
FILES "\SALES" 


Displays the directory entry SALES<DIR>\. 
FILES "\SALES\MARY\*.BAK" 


Displays all backup (.BAK) files in subdirectory MARY. 
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FOR...NEXT 


Purpose 


Allows a series of instructions to be performed in a loop a given number of 
times. 


Syntax 


FOR variab/e=x TO y [STEP z] 


NEXT [var/ab/e ||, variab/e ]...] 


where x, y, and z are numeric expressions. 


Comments 


Variable is used as a counter. The first numeric expression (x) is the 
initial value of the counter and the second numeric expression (y) is the 
final value of the counter. The third numeric expression (z) is used as an 
increment for STEP. 


The program lines following the FOR statement are executed until the NEXT 
statement is encountered. Then the counter is incremented by the amount 
specified by STEP. A check is performed to see if the value of the counter 
is now greater than the final value (y). 


If it is not greater, GWBASIC branches back to the statement after the FOR 
statement and the process is repeated. If it is greater, execution 
continues with the statement following the NEXT statement. This is a 
FOR...NEXT loop. 


If STEP is not specified, the increment is assumed to be one. If STEP is 
negative, the final value of the counter is set to be less than the initial 
value. The counter is decremented each time through the loop, and the loop 
is executed until the counter is less than the final value. 


The body of the loop is skipped if the initial value of the loop times the 
sign of the step exceeds the final value times the sign of the step. 


Nested Loops. FOR...NEXT loops may be nested, that is, a FOR...NEXT loop 
may be placed within the context of another FOR...NEXT loop. When loops 
are nested, each loop must have a unique variable name as its counter. The 
NEXT statement for the inside loop must appear before that for the outside 
loop. If nested loops have the same end point, a separate NEXT statement 
must be used for each of them. 
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The variables in the NEXT statements may be omitted, in which case the NEXT 
statement matches the most recent FOR statement. If a NEXT statement is 
encountered before its corresponding FOR statement, a NEXT without FOR 
error message is issued and execution is terminated. 


Examples 
10 K=10 
20 FOR 1=1 TO К STEP 2 
30 PRINT l; 
40 K=K+10 
50 PRINT K 
60 NEXT 
RUN 
1 20 
3 30 
5 40 
/ 50 
9 60 
Ok 
10 J= 
20 FOR 1=1 TOJ 
30 PRINT | 
40 NEXT | 
In this example, the loop does not execute because the initial value of 
the loop exceeds the final value. 
10 125 
20 FOR 1=1 ТО 1+5 
30 PRINT l; 
40 NEXT 
RUN 
| 2 3 4 5.9 / B 9 10 
Ok 


In this example, the loop executes ten times. The final value for the 
loop variable is always set before the initial value is set. Previous 
versions of GWBASIC set the initial value of the loop variable before 
setting the final value; in that case, the above loop would have 
executed six times. 
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GET 


Purpose 


Reads a record from a random disk file into a random buffer and/or to get 
the permissable fixed length I/O for communication files. 


Syntax 


GET [*]£//e number |, record number | 
GET #//е number, n bytes 


Comments 


File number is the number under which the file was OPENed. If record 
number is omitted, the next record (after the last GET) is read into the 
buffer. The largest possible record number is 32767. 


n bytes is an integer expression returning the number of bytes to be 
transferred into or out of the file buffer. 


Note: After a GET statement, INPUT# and LINE INPUT# may be executed to 
read characters from the random file buffer. 


Examples 


See Appendix A. 
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GET (Graphics) 


Purpose 


Reads points from an area of the screen. 


Syntax 


GET array name 
GET (x1,y1)-(x2,y2), array name 


Comments 


(х1,у1) and (x2,y2) are the coordinates of the opposite corners of the 
screen area. 


GET reads the colors of the points in the specified screen area into the 
array. A rectangular area of the screen has as its opposite corners points 
(x1,y1) and (x2,y2). If you use the B option in the LINE statement, the 
results are the same. 


This array is only to hold the image in the specified area without concern 
as to precision, but it must be in numeric form. Size is calculated as 
follows: 


array size= (4+INT(X*M+7)/8)*Z*Y)/A 


where 
X Is the number of horizontal dots. 
Y Is the number of vertical dots. 
A Is the number of bytes in the array element. 


M*Z Is the number of bits necessary to represent one dot where M and Z 
are from the following table. 


Graphics Mode M Z 
SCREEN 1 2 1 
SCREEN 2 1 1 
SCREEN 3 1 4 
SCREEN 3 MONO 1 1 


For example, the number of bytes required to make a 15 Бу 20 image in 
elementary medium resolution would be calculated as: 


4 + INT((15*2+7)/8)*20*1 
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or, in other words, 84. The number of bytes per array element depends on 
the precision used when dimensioning the array. The following rules apply: 


2 bytes for an integer 
4 bytes for single precision 
8 bytes for double precision 


An integer array would thus have 42 elements. Storage of screen 
information using GET is: 


1. 2 bytes giving the x dimension in bits 
2. 2 bytes giving the y dimension in bits 
3. The data itself. 


If an integer array is used, it is possible to examine the x and y 
dimensions. The x dimension is in element O and the y dimension is in 
element 1 of the array. The integers are stored low byte first, but the 
data is transferred high byte first. 


The data for each row of points in the rectangle is left justified on a 
byte boundary. If the number of bits stored is less than a multiple of 8, 
the rest of the byte is filled with zeros. 


Example 


100 SCREEN 1,0; COLOR 0,0 

110 FOR 1=1 TO 10 

120 LINE (0,0) -(RND*319,RND* 199) , RND*2+1 

130 NEXT 

140 FOR 1=1 to 10 

150 LINE (319,199) - (RND*319,RND* 199) , RND*2+1 
160 NEXT 

170 DIM A%(128) 

180 GET (100, 100)-(110, 120), Ax 

190 END 


Reference 


PUL 
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GOSUB...RETURN 


Purpose 


Branches to and returns from a subroutine. 


Syntax 


GOSUB //пе number 


RETURN 


Comments 
Line number is the first line of the subroutine. 


A subroutine may be called any number of times in a program, and a 
subroutine may be called from within another subroutine. Such nesting of 
subroutines is limited only by available memory. 


The RETURN statement(s) in a subroutine cause GWBASIC to branch back to the 
statement following the most recent GOSUB statement. A subroutine may 
contain more than one RETURN statement, should logic dictate a return at 
different points in the subroutine. Subroutines may appear anywhere in the 
program, but is is recommended that the subroutine be readily 

distinguishable from the main program. To prevent inadvertent entry into 

the subroutine, precede it with a STOP, END, or GOTO statement that directs 
program control around the subroutine. 


Example 
10 GOSUB 40 
20 PRINT "BACK FROM SUBROUTINE" 
30 END 


40 PRINT "SUBROUTINE"; 
50 PRINT " IN"; 

60 PRINT " PROGRESS" 
/O RETURN 

RUN 

SUBROUTINE IN PROGRESS 
BACK FROM SUBROUT | NE 
Ok 
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GOTO 


Purpose 


Branches unconditionally out of the normal program sequence to a specific 
line number. 


Syntax 


GOTO //ne number 


Comments 


If line number is an executable statement, that statement and those 
following are executed. If it is a nonexecutable statement, execution 
proceeds at the first executable statement encountered after line number. 


10 READ R 

20 PRINT "R ="5R, 
30 A = 3.14*R*2 

40 PRINT "AREA =";A 


50 GOTO 10 

60 DATA 5,7, 12 
Ok 

RUN 

R=5 

AREA = 78.5 
R= 7 

AREA = 153.86 
К = 12 


AREA = 452.16 
Out of data in 10 
Ok 
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IF 


Purpose 


Makes a decision regarding program flow based on the result returned by an 
expression. 


Syntax 


IF expression THEN statement(s) /ine number 
[ELSE statement(s) /ine number ] 


IF expression GOTO //пе number 
[ELSE statement(s) // пе number | 


Comments 


If the result of expression is not zero, the THEN or GOTO clause is 
executed. THEN may be followed by either a line number for branching or 
one or more statements to be executed. GOTO is always followed by a line 
number. 


If the result of expression is zero, the THEN or GOTO clause is ignored and 
the ELSE clause, if present, is executed. Execution continues with the 
next executable statement. 


Nesting of IF Statements. The GWBASIC IF...THEN...ELSE statements may be 
nested. Nesting is limited only by the length of the line. For example: 


IF X » Y THEN PRINT "GREATER" ELSE IF Y » X 
THEN PRINT "LESS THAN" ELSE PRINT "EQUAL" 


is a legal statement. If the statement does not contain the same number of 
ELSE and THEN clauses, each ELSE is matched with the closest unmatched 
THEN. For example: 


IF A = В THEN IF В = C THEN PRINT "А = C" 
ELSE PRINT "A <> С" 


If an IF... THEN statement is followed by a line number in the direct mode, 


an Undefined line error results unless a statement with the specified line 
number had previously been entered in the indirect mode. 
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Note: When using IF to test equality for a value that is the result of a 
floating point computation, remember that the internal representation of the 
value may not be exact. Therefore, the test should be against the range over 
Which the accuracy of the value may vary. For example, to test a computed 
variable A against the value 1.0, use: 


IF ABS (A-1.0)«1.0E-6 THEN ... 
This test returns true if the value of A is 1.0 with a relative error of less 
than 1.0E-6. 
Examples 


200 IF | THEN GET#1, | 


This statement GETs record number I if I is not zero. 


100 IF(1<20)*(1>10) THEN DB = 1979-1:GOTO 300 
110 PRINT "OUT OF RANGE" 


In this example, a test determines if I is greater than 10 and less 
than 20. If I is in this range, DB is calculated and execution 
branches to line 300. If I is not in this range, execution continues 
with line 110. 


210 IF IOFLAG THEN PRINT A$ ELSE LPRINT A$ 


This statement causes printed output to go either to the terminal or 
the line printer, depending on the value of the IOFLAG variable. If 
IOFLAG is zero, output goes to the line printer; otherwise, output goes 
to the terminal. 
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INPUT 


Purpose 


Allows input from the terminal during program execution. 


Syntax 


INPUT [;][“prompt string” ; || variab/e ||, variab/e |...) 


Comments 


When an INPUT statement is encountered, program execution pauses and a 
question mark is printed to indicate the program is waiting for data. If 
" prompt string " is included, the string is printed before the question 
mark. The required data is then entered at the terminal. 


A comma may be used instead of a semicolon after the prompt string to 
suppress the question mark. For example, the statement 


INPUT "ENTER BIRTHDATE" ;B$ 
prints the prompt with no question mark. 


If INPUT is immediately followed by a semicolon, the carriage return you 
typed to input date does not echo a carriage return/line feed sequence. 


The data entered is assigned to the variables specified. The number of 
data items supplied must be the same as the number of variables in the 
list. Data items are separated by commas. 


The variable names in the list may be numeric or string variables 
(including subscripted variables). The type of each data item that is 
input must agree with the type specified by the variable name. Strings 
input to an INPUT statement need not be surrounded by quotation marks. 


Responding to INPUT with too many or too few items, or with the wrong type 
of a value (for example, numeric instead of string), causes the message 

?Redo from start to be printed. No assignment of input values is made 
until an acceptable response is given. 
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Examples 


10 INPUT X 

20 PRINT X "SQUARED IS" X^2 

30 END 

RUN 

? 5 (The 5 was typed in by the user 

in response to the question mark.) 

5 SQUARED 18 25 

Ok 


10 РІ = 3.14 

20 INPUT "WHAT IS THE RADIUS";R 

30 A = PI*R*2 

40 PRINT "THE AREA OF THE CIRCLE IS";A 
50 PRINT 

60 GOTO 20 


RUN 
WHAT 18 THE RADIUS? 7.4 (User types 7.4) 
THE AREA OF THE CIRCLE IS 171.9464 


WHAT IS THE RADIUS? 
etc. 
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INPUT# 


Purpose 


Reads data items from a sequential disk file and assigns them to program 
variables. 


Syntax 


INPUT# #//е number,variab/e[[, variable ]...] 


Comments 


File number is the number used when the file was OPENed for input. 
Variables are assigned to the items in the file. The variable type must 
match the type specified by the variable name. With INPUT#, unlike INPUT, 
no question mark is printed. 


The data items in the file should appear just as they would if you typed 
data in response to an INPUT statement. With numeric values, leading 
spaces, carriage returns and line feed are ignored. The first character 
encountered that is not a space, carriage return or line feed is assumed to 
be the start of a number. The number terminates on a space, carriage 
return, line feed, or comma. 


If GWBASIC is scanning the sequential data file for a string item, then 
leading spaces, carriage returns, and line feeds are also ignored. The 

first character encountered that is not a space, carriage return, or line 
feed is assumed to be the start of a string item. If this first character 
is a quotation mark ("), the string item consists of all characters read 
between the first quotation mark and the second. Thus, a quoted string may 
not contain a quotation mark as a character. If the first character of the 
string is not a quotation mark, the string is an unquoted string, and 
terminates on a comma, carriage return, or line feed (or after 255 
characters have been read). If end of file is reached when a numeric or 
string item is being INPUT, the item is terminated. 


Examples 


See Appendix B. 
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IOCTL 


Purpose 


Transmits a control character or string to a device driver. 


Syntax 


ГОСТ. [#] fi /e number,string 


Comments 
IOCTL commands are generally two or three characters followed by an 
optional alphanumeric argument. An IOCIL command string may be up to 255 
bytes long. 
IOCTL works only if: 
1. The device driver is installed. 
2. The device driver states it processes IOCIL strings. 


3. GWBASIC performs an OPEN command on a file on that device. 


Note: Most standard MS-DOS device drivers do not process IOCIL strings. 
You must determine whether a specific driver can handle this command. 


Example 


10 OPEN "\DEV\LPT1" FOR OUTPUT AS #1 
20 ОСП #1, "PL66" 


Sets the page length to 66 lines per page on LPI1:. 


Reference h 


IOCTL$ 


GWBAS/C Commands and Statements / 2-51 


KEY 


Purpose 


Defines and/or displays the function key assignment text. 


Syntax 


KEY key number, string expression 
KEY LIST 

KEY ON 

KEY OFF 


Comments 


The KEY statement allows function keys to be designated as " soft " 
(reprogrammable) keys. Key number is the number of the function key (F1- 
F10, entered as 1-10). String expression is the text of a sequence of up 
to 15 characters that may be assigned to one of the ten function keys. 
When an assigned key is pressed, the string is input to GWBASIC. 


Assigning a null string (0 length) disables the function key as a soft key. 


The defined string expression is input as a GWBASIC conmand when the 
assigned function key is pressed. 


If the value returned for key number is not in the range 1 to 10, an 
Illegal function call error occurs. The previous KEY string assignment is 
retained. 


KEY ON 


This is the initial setting. Causes the KEY values to be displayed on 
the 25th line. 


10 KEY values are displayed if screen width is 80 and 5 KEY values are 
displayed if 40. In each case, only the first 6 characters are 
displayed. 

KEY OFF 
Erases the KEY display from the 2Sth line. The function key assignment 
text is not eliminated when the display is erased. It may be used as 
is. 


KEY LIST 


List all 10 KEY values on the screen. All 15 characters of each value 
are displayed. 
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The default definitions of Function Keys are as follows. RETURN indicates 
that a Carriage Return is entered. 


F1 LIST F6 s CPEs RETURN 

F2 RUN RETURN F7 TRON RETURN 

F3 LOAD" F8 TROFF RETURN 

F4 SAVE" F9 KEY 

FS CONT RETURN F10 SCREEN 0,0,0 RETURN 


When a soft key is assigned, the INKEY$ function returns one character of 
the Soft Key string per invocation. 


Example 


100 KEY 1, "FILES" 
110 KEY ON 
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KEY [n] ON/OFF/STOP 


Purpose 


Enables, disables, or terminates interrupts caused by a specified key. 


Syntax 


KEY (n) ON 
KEY (n) OFF 
KEY (n) STOP 


Comments 
n indicates the number of the function key that causes the interrupt. 
Assigns enabling (ON), disabling (OFF), and termination (STOP) of 


interrupts that occur when the key indicated by n is pressed. The keys 
indicated by (n) are listed below. 


1-10 Function Keys F1-F10 

11 Cursor Up Arrow 

12 Cursor Left Arrow 

13 Cursor Right Arrow 

14 Cursor Down Arrow 

15-20 Keys defined by the form: 


KEY (n) CHR$(SHIFT)+CHR$(scancode) 


The KEY (n) ON statement enables interrupts. After this command is 
executed, an interrupt is generated each time an assigned Key is pressed. 

If the first line number (other than 0) of an interrupt handling routine is 
assigned in an ON KEY...GOSUB statement, a check is performed to see if the 
assigned key is pressed each time GWBASIC executes a statement. If the key 
is pressed, GWBASIC branches to the subroutine with the assigned line 
number. 


The KEY (n) OFF statement disables interrupt. If the key is pressed, it is 
ignored. 


The KEY (n) STOP statement prevents interrupts from occurring when the key 
is pressed. However, they are recorded in memory and occur if KEY (n) is 
activated later. 


KEY (л) ON has no effect on displaying the assignment text of the function 
key on the bottom line of the screen. 
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100 KEY (1) ON 

110 ON KEY (1) GOSUB 160 
120 ‘LOOP 

130 A$=CHR$ (RND* 100) 
140 PRINT A$; 

150 GOTO 130 

160 ‘WAIT 

170 FOR 1=1 TO 1000 
180 NEXT 

190 PRINT " " 

200 FOR 1=1 TO 1000 
210 NEXT 

220 RETURN 


Reference 


ON KEY 
Appendix J 
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KILL 


Purpose 


Deletes a file from disk 


Syntax 
KILL pathname 
KILL 7//ename 
Comments 


If a KILL statement is given for a file that is currently OPEN, aFile 
already open error occurs. 


KILL is used for all types of disk files: program files, random data 
files, and sequential data files. 


Example 
200 KILL "DATA1" 
Reference 


Appendix A 
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LCOPY 


Purpose 


Prints text currently displayed on the screen. 


Syntax 


LCOPY 
Comments 


The LCOPY statement sends the active page of text screen to the current 
printer device. 
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LET 


Purpose 


Assigns the value of an expression to a variable. 


Syntax 


[LET] variable = expression 


Comments 


Notice the word LET is optional; the equal sign also assigns an expression 
to a variable name. 


Examples 
110 LET D = 12 
ТОО LET E. e 12e 2 
130 LET F = 1874 
140 LET SUM = D+E+F 
or 
110 D = 12 
120 Е = 1272 
130 Е = 1274 
140 SUM = D+E+F 


2-58 /GWBAS/C Commands and Statements 


LINE 


Purpose 


Draws straight lines and rectangles on the screen in graphics mode. 


Syntax 


LINE [(x1,y1)]-(x2,y2) [, [со/ог J[,BIF]][, sty/e]] 


Comments 


(x1,y1) and (x2,y2) are shown on the screen as absolute or relative 
coordinates. For color display, refer to Using the Screen, Graphics Mode 
in Chapter 1. 


With the LINE statement, it is possible to draw straight lines connecting 
the coordinates designated by (x1,y1) and (x2,y2). 


The simplest form of line is: 
LINE -(x2,y2) 


This draws from the last point to the point (x2,y2) in the foreground 
attribute. 


For example, if LINE -(100,100) is executed after LINE (0,0)-(10,10) , a 
line can be drawn connecting (0,0)-(10,10)-(100,100). 


The coordinates for the final point can be written in relative form. In 
this case, the final point becomes the point defined by adding a specified 
offset to the coordinates of the first point. For example, the result of 
LINE (100,100)-STEP(20,-20) is the line segment (100,100)-(120,80). 


The permissable range of the coordinate depends on graphics mode. Refer to 
the SCREEN statement for details. 


The final argument to LINE is ,B (box) or ,BF (filled box). You can leave 
out the attribute argument and include the final argument as follows: 


LINE (0,0)-(100, 100), ,В 'Draw box in foreground or include it 


LINE (0,0)-(200,200),2,BF ‘Draw filled box attribute 2 
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The „В tells GWBASIC to draw a rectangle with the points (х1,у1) and 
(x2,y2) as opposite corners. This avoids giving the four LINE commands 
that follow to perform the same function: 


LINE (x1,y1)-(x2,y1) 
LINE (x1,y1)-(x1, y2) 
LINE (x2,y1)-(x2,y2) 
LINE (x1,y2)-(x2,y2) 


The ,BF tells GWBASIC to draw a rectangle as in ,B but also fill in the 
interior with the selected attribute. 


Style is a 16-bit integer mask used when putting down pixels on the 
screen. This is called line-Styling. 


Each time LINE stores a point on the screen, it uses the current 
circulating bit in style. If that bit is 0, no store is done. If the bit 

is 1, then a normal store occurs. After each point, the next bit position 
in style is selected. 


Since a O bit in style does not clear out the old contents, you may wish to 
draw a background line before a styled line in order to force a known 


background. 
Style is used for normal lines and boxes, but has no effect on filled 
boxes. 
Examples 
100 SCREEN 1,0: COLOR 0,0 
110 FOR | = 1 TO 10 
120 LINE (0,0)-(RND*319,RND* 199) , RND*2+1 
130 NEXT 
140 FOR | = 1 TO 10 
150 LINE (319, 199) - (RND*319,RND* 199) , RND*2+1 
160 NEXT 
170 GOTO 110 


Draws colored lines from two corners of your screen. 
LINE (0.0) - (160,100),3,,& HFFOO 


Draws a dashed line from the upper left corner to the screen center. 


Reference 


COLOR, SCREEN 
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LINE INPUT 


Purpose 


Inputs an entire line (up to 254 characters) to a string variable, without 
the use of delimiters. 


Syntax 


LINE INPUT[;]["prompt string ";] string variable 


Comments 


The prompt string is a string displayed at the terminal before input is 
accepted. A question mark is not displayed unless it is part of the prompt 
string. All input from the end of the prompt to the RETURN is assigned to 
string variable. If a line feed/carriage return sequence (this order only) 

is encounted, both characters are echoed, but the carriage return is 
ignored, the line feed is put into string variable, and data input 

continues. 


If LINE INPUT is immediately followed by a semicolon, then pressing RETURN 
to end the input line does not echo a carriage return/line feed sequence at 
the terminal. 
A LINE INPUT command can be stopped by pressing CTRL BREAK. Then GWBASIC 
returns to the command level and displays the Ok prompt. Typing CONT 
resumes execution at the LINE INPUT. 

Example 


See example under LINE INPUT*. 
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LINE INPUT* 


Purpose 


Reads an entire line (up to 254 characters), without delimiters, from a 
sequential disk data file into a string variable. 


Syntax 


LINE INPUT# #//е number,string variable 


Comments 


File number is the number under which the file was OPENed. String variable 
is the variable name that the line is assigned. LINE INPUT# reads all 
characters in the sequential file up to a return. It then skips over the 
carriage return/line feed sequence, and the next LINE INPUT* reads all 
characters up to the next return. (If a line feed/carriage return sequence 
is encountered, it is preserved.) 


LINE INPUT* is especially useful if each line of a data file has been 
broken into fields, or if a GWBASIC program saved in ASCII mode is being 
read as data by another program. 


10- OPEN "CO". T; LISTA 

20 LINE INPUT "CUSTOMER INFORMATION? ";C$ 
30 PRINT #1,C$ 

40 CLOSE 1 

S0. OPEN "L^, 1; LEST: 

60 LINE INPUT#1,C$ 


/O PRINT C$ 
80 CLOSE 1 
RUN 


CUSTOMER INFORMATION? LINDA JONES 234,4 MEMPHIS 
LINDA JONES 234.4 MEMPHIS 
Ok 
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LIST 


Purpose 


Allows a program to be listed to the screen or another device. 


Syntax 


LIST [/ine number [-[ / /ne number |, dev | 


Comments 


Line number is a valid line number in the range 0 to 65529. Dev is a valid 
device specification. 


If the optional device specification is omitted, the specified lines are 
displayed. 


Listings directed to the screen by omitting the device specification may be 
paused at any time by pressing CTRL NUM LOCK. Listings directed to devices 


can not be interrupted. That is, LIST range can be interrupted, but not 
LIST range,”SCRN:”. 


Pressing CTRL BREAK terminates a screen listing. 

If the line range is omitted, the entire program is listed. 

If only line number is specified, only that line is displayed. 

When the hyphen (-) is used in a line range, three options are available: 


1. If only the first number is given, that line and all higher numbered 
lines are listed. 


2. If only the second number is given, all lines from the beginning of the 
program through the given line are listed. 


3. If both numbers are specified, the inclusive range is listed. 


If LIST is followed by a space and a period (.), the line at the present 
cursor position is displayed. 


When files are listed to the disk, they are saved in ASCII format. Files 
saved in this manner can later be MERGEd. 


GWBAS/C Commands and Statements / 2-63 


Examples 
LIST 
Lists the program currently in memory. 
LIST 500 
Lists line 500. 
LIST 150- 
Lists all lines from 150 on the end of the program. 
LIST -1000 
Lists all lines from the lowest number through 1000. 
LIST 150-1000 


Lists lines 150 through 1000. 
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LLIST 


Purpose 


Prints all or part of the program currently in memory on the printer. 


Syntax 


LLIST [//ne number [-[ / /ne number ]1]] 


Comments 
LLIST assumes a 132-character wide printer. 


GWBASIC always returns to command level after LLIST is completed. The 
options for LLIST are the same as for LIST. 


Examples 


See the examples for LIST. 
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LOAD 


Purpose 


Loads a file from disk into memory. 


Syntax 


LOAD #/ /езрес |, В ] 


Comments 


Filespec is the name of the disk file. MS-DOS adds a default extension 
(.BAS) to the file. The LOAD command: 


o Closes all open files. 

o Deletes all variables. 

o  Deletes the current program from memory. 

o Loads the designated program. 

If you use the R option with LOAD, the program is RUN after it is LOADed, 
and all open data files are kept open. Thus, LOAD with the R option may be 


used to chain several programs (or segments of the same program). 
Information is passed between the programs using their disk data files. 


Example 


LOAD "STRTRK",R 
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LOCATE 


Purpose 


Moves the cursor to a spot on the active screen. Optional parameters set 
the cursor to blink on and off and define its size. 
Syntax 


LOCATE [row ][,[ co/ Л, cursor ILI start |, stop 111] 


Comments 


Row is where you want to place the cursor. This is a numeric expression in 
the range 1 to 25. 


Col is where you want to place the cursor. This is a numeric expression in 
the range 1 to 10 or 1 to 80 depending upon your video display type and 
screen width. 


Cursor determines whether the cursor is visible or not. You can enter 


either: 
0 No display 
1 Display 


Start is the cursor starting scan line, a numeric expression in the range 0 
to Ix 


Stop is the cursor stop scan line, a numeric expression in the range O to 
19: 


Any parameter may be omitted. Omitted parameters assume the last value. 
The desired size of the cursor can be obtained by using start and stop. 

If you give the start scan line parameter and omit the stop scan line 
parameter, stop assumes the start value. Using a color monitor, the bottom 
scan line is 7. Also, if start is given as a higher value than stop, the 


cursor disappears. 


The cursor is not displayed during ordinary program execution. In order to 
display it, enter LOCATE,,1. 


Any values entered outside of these ranges result in an lllegal function 
call error. Previous values are retained. 
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LPRINT and LPRINT USING 


Purpose 


Prints data at the line printer. 


Syntax 


LPRINT [//st of expressions | 
LPRINT USING string exp; list of expressions 


Comments 


This command functions similar to PRINT and PRINT USING, except that output 
goes to the line printer. See PRINT and PRINT USING for more information. 


LPRINT assumes an 80-column printer. 
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LSET and RSET 


Purpose 


Moves data from memory to a random file buffer (in preparation for a PUT 
statement). 


Syntax 


LSET string variable = string expression 
RSET string variable = string expression 


Comments 


If string expression requires fewer bytes than were FIELDed to string 
variable, LSET left-justifies the string in the field, and RSET right- 
justifies the string. (Spaces are used to pad the extra positions.) If 
the string is too long for the field, characters are dropped from the 
right. Numeric values must be converted to strings before using LSET or 
RSET. See the MKI$, MKS$, MKD$ functions in Chapter 3 for more 
information. 


Note: LSET or RSET may also be used with a non-fielded string variable to 
left-justify or right-justify a string in a given field. For example, the 
program lines 


110 A$=SPACE$ (20) 
120 RSET A$=N$ 


right-justify the string N$ in a 20-character field. This is useful for 
formatting printed output. 


Examples 
150 LSET A$-MKS$« (AMT) 


160 LSET D$=DESC($) 


Reference 


Appendix B 
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MERGE 


Purpose 


Merges a specified disk file into the program currently in memory. 


Syntax 


MERGE f£//ename 


Comments 


Filename is the name used when the file was SAVEd. (With MS-DOS, the 
extension .BAS is supplied.) The file must have been SAVEd in ASCII 
format. (If not, a Bad file mode error occurs.) 

If any lines in the disk file have the same line numbers as lines in the 
program memory, the lines from the file on disk replace the corresponding 
lines in memory (merging may be thought of as "inserting " the program 
lines on disk into the program in memory). 


GWBASIC always returns to command level after executing a MERGE command. 


Example 


MERGE "NUMBRS" 


2-/0 / GWBAS/C Commands and Statements 


MID$ 


Purpose 


Replaces a portion of one string with another string. 


Syntax 


MID$( string exp7),n[,m]) =string exp2 


Comments 


The characters in string expl, beginning at position л, are replaced by the 
characters in string exp2. 


The optional m refers to the number of characters from string exp2 that are 
used in the replacement. If m is omitted, all of string exp2 is used. 
However, regardless of whether m is omitted or included, the replacement of 
characters never goes beyond the original length of string expl. 


Example 


10 A$="KANSAS CITY, МО" 
20 MID$(A$,14)="KS" 

30 PRINT A$ 

RUN 

KANSAS CITY, KS 


Reference 


The MID$ function also returns a substring of a given string. See Chapter 
3 for more information. 
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MKDIR 


Purpose 


Makes a new directory. 


Syntax 


MKDIR pathname 


Comments 


Pathname is a string expression up to 128 characters long that identifies 
the new directory to be created. MKDIR works exactly like the MS-DOS 
command MKDIR. 


Examples 
MKDIR "SALES" 


Creates subdirectory SALES in the root directory of the current drive. 


MKDIR "ACCOUNT I NG" 


Creates subdirectory ACCOUNTING in the root directory of the current 
drive. 


MKDIR "В: INVENTORY" 


Creates subdirectory INVENTORY in the root directory on Drive B. 
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NAME 


Purpose 


Changes the name of a disk file. 


Syntax 


NAME o/d filename AS new filename 


Comments 
Old filename must exist and new filename must not exist; otherwise an error 
results. After a NAME command, the file exists on the same disk, in the 
same area of disk space, with the new name. 


Pathnames are not allowed. That is, only files in a current directory may 
be renamed. Specifying a path results in a Bad filename error. 


Rules to keep in mind when using NAME are: 


1. Oldname and newname must be closed before rename. The same open file 
check is used as in OPEN and KILL. 


2. There must be one free file handle for performing the open check. 


Example 
Ok 


NAME "ACCTS" AS "LEDGER" 
Ok 


This example shows that the file formerly named ACCTS is now named 
LEDGER. 
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NEW 


Purpose 


Deletes the program currently in memory and clears all variables. 


Syntax 


NEW 


Comments 
NEW is entered at command level to clear memory before entering a new 


program. GWBASIC always returns to command level after а NEW command is 
entered. 
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ON ам 


Purpose 


Defines the starting line of the subroutine used when data arrives at the 
communications buffer. 


Syntax 


ON COM( port number ) GOSUB//ne number 


Comments 


Port number is the number of the communications adapter being used. Line 
number is the starting line of communications handling routine. COM ON 
must be executed before executing ON COM. 


ON COM only assigns the starting line of the subroutine, therefore 
execution of this command does not by itself result in branching to the 
subroutine. Branching to the subroutine after an interrupt only occurs 
when an outside factor (in this case, the arrival of data at the 
communications buffer) is present. 


Execution of COM STOP disables interrupts from the communications buffer, 
but the arrival of data is recorded. Therefore, if data arrives after 
execution of COM STOP and then COM ON is executed subsequently, GWBASIC 
goes immediately to the line number assigned by ON COM. You can disable 
communications buffer interrupts by assigning line O as the branching 
destination. 


COM STOP is executed automatically whenever an interrupt occurs. This is 
to prevent recalling of the interrupt handling subroutine if another 

interrupt occurs during execution of the subroutine (the branching 
destination assigned by ON COM). Unless COM OFF is executed during the 
handling subroutine, COM ON is executed automatically with the execution of 
RETURN at the end of the handling subroutine, re-enabling interrupts from 
the communications buffer. Interrupts only occur while GWBASIC is 
executing a program. If an ERROR interrupt occurs, all other interrupts 
(ERROR, PEN, COM, KEY) are disabled. 


To specifically assign the destination for return from the handling 
subroutine, use RETURN line number. If possible, handle all of the data at 
the communications buffer at the same time with the handling subroutine. 
If characters are handled one at a time and the baud rate of the 
communications circuit is high, the result could be a large increase in 
Overhead time and possibly a buffer overflow. 


Reference 


COM 
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ON ERROR GOTO 


Purpose 


Enables error trapping and specifies the first line of the error handling 
subroutine. 


Syntax 


ON ERROR GOTO //ne number 


Comments 


Once error trapping has been enabled, all errors that are detected, 
including direct mode errors (syntax errors), cause a jump to the specified 
error handling subroutine. If line number does not exist, an Undefined 
line error results. i 


To disable error trapping, execute an ON ERROR GOTO 0. Subsequent errors 
print an error message and halt execution. Ап ON ERROR GOTO 0 statement 
that appears in an error trapping subroutine causes GWBASIC to stop and 
print the error message for the error that caused the trap. 


It is recommended that all error trapping subroutines execute an ON ERROR 
СОТО O if an error is encountered that has no recovery action. 


Note: If an error occurs during execution of an error handling subroutine, 
the GWBASIC error message is printed and execution terminates. Error 
trapping does not occur within the error handling subroutine. 


Example 
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10 ON ERROR GOTO 1000 


/ GWBASIC Commands and Statements 


ON. ..GOSUB and ON...GOIO 


Purpose 


Branches to one of several specified line numbers, depending on the value 
returned when an expression is evaluated. 


Syntax 


ON expression GOTO /ist of /ine numbers 
ON expression QGOSUB //st of /ine numbers 


Comments 


The value of expression determines the line number in the list used for 
branching. For example, if the value is 3, the third line number in the 
list is the destination of the branch (if the value is a non-integer, the 
fractional portion is rounded). 


In the ON...GOSUB statement, each line number in the list must be the first 
line number of a subroutine. Line numbers must be separated by commas. 


If the value of expression is zero or greater than the number of items in 
the list (but less than or equal to 255), GWBASIC continues with the next 


executable statement. If the value of expression is negative or greater 
than 255, ап || legal function call error occurs. 


Example 


100 ON L-1 GOTO 150,300, 320, 390 


GWBAS/C Commands and Statements / 2-77 


ON KEY 


Purpose 


Defines the starting line of the subroutine used when a KEY interrupt 
occurs. 


Syntax 


ON KEYkey number  GOSUB//ne number 


Comments 


Key number is the function key number causing the interrupt/branch to the 
specified subroutine. 


Key interrupts can be disabled by assigning line O as the branch 
destination. KEYkey number ON must be used before an ON KEY command. 


ON KEY only defines the starting line of the subroutine, so execution of 
this command does not by itself result in branching to the subroutine. 
Branching to the subroutine after an interrupt only occurs when an outside 
factor (in this case, pressing a key) is present. 


Execution of KEYkey number OFF disables interrupts from the key designated 
by key number. 


Execution of KEYkey number STOP disables interrupts from the key designated 
by key number. Pressing the key is recorded, so if you press the key after 
execution of KEYkey number STOP and then subsequently execute KEYkey number 
ON, GWBASIC goes immediately to the line number defined by ON KEY. 


Also, KEYkey number STOP is executed automatically whenever interrupts 
occur. This prevents recalling of the interrupt handling subroutine (the 
destination assigned by ON KEY) if the same Key is depressed again during 
execution of the subroutine. Unless KEYkey number OFF is executed during 
the handling subroutine, KEYkey number ON is executed automatically with 
the execution of RETURN at the end of the subroutine. 


Interrupts only occur while GWBASIC is executing a program. Also, if an 
ERROR interrupt occurs, all other interrupts (ERROR, PEN, COM, KEY) are 
disabled. 


INPUT$ and INKEY$ cannot be used to identify the Key which caused the 
interrupt. Therefore, ON KEY must be used to define a handling subroutine 
for each Key separately. 


To specifically assign the line number for return from the handling 
subroutine, use RETURNIiine number. 
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The ON KEY(n) statement allows 6 additional user defined KEY traps. This 
allows any key or CIRL and SHIFT key combinations to be trapped as follows: 


ON KEY(/ ) GOSUB//ne number 


i is an integer expression dependent on the number of function keys and 
direction keys. GWBASIC has ten function keys and four direction keys. 
Therefore, you can define keys 15 through 20. 


User defined keys are defined by the statement: 
KEY / , CHR$ ( / )+ CHR$(k) 
i is the user key number (15 through 20). 


j and k are intended to uniquely define a key on the keyboard. GWBASIC 
interprets as follows. 


jis the mask for the latched keys: CAPS LOCK, NUM LCK, ALT, CTRL, Left SHIFT, 
and Right SHIFT. The appropriate bit information must be set in order to trap 

a key that is Shifted, Ctrl-Shifted, or Alt-Shifted. Keyboard Flag values in 

HEX are: 


CAPS LOCK &H40 CAPS LOCK is active 

NUM LCK &H20 NUM LCK is active 

ALT &HO8 The ALT Key is depressed 

CTRL &НО4 The CTRL key is depressed 

Left SHIFT &HO2 The left hand SHIFT key 
is depressed 

Right SHIFT &HO1 The right hand SHIFT key 


is depressed 

k is the number identifying one of the 83 physical keys on the keyboard. 

These rules apply to keys trapped by GWBASIC: 

1. The PRTSC key, the Line Printer echo toggle is pressed first. Defining the 
PRTSC key as a user defined Key Trap doesn't prevent characters from being 
echoed to the Line Printer if depressed. 

24. Function keys and cursor keys are examined next. Defining a function key 
or cursor key as a Key Trap has no effect because they are considered pre- 
defined. 


3. User defined keys are examined next. 


4. Any key that is trapped is not passed on to GWBASIC. 
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Note: The user-defined key traps apply to any combination of keys that you 
define, including CTRL BREAK and CTRL ALT DEL (system reset). They may be 
used as an aid to prevent you from accidentally stopping a program or 
rebooting the computer. 


100 FOR 1=1 TO 3 

110 KEY (1) ON 

120 NEXT | 

130 ON KEY (1) GOSUB 170 

140 ON KEY (2) GOSUB 180 

150 ON KEY (3) GOSUB 190 

160 GOTO 100 

170 PRINT "СОТО"; : RETURN 

180 PRINT "PRINT"; :RETURN 
190 PRINT "AUTO" ; :RETURN 


Press CTRL and BREAK together to exit the program. 
Reference 


KEY, RETURN 
Appendix J 
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ON PEN 


Purpose 


Transfers control to a specified line number when the light pen is 
activated. 


Syntax 


ON PEN GOSUB //ne number 


Comments 


A PEN ON statement must be executed before using ON PEN. Line number is 
the first line number of the light pen event trap routine. 


If you specify a line number of 0, light pen trapping is disabled. If you 
specify a valid line number with ON PEN, GWBASIC checks to see if the light 
pen was activated before processing each new statement. 


If the light pen was activated, GWBASIC transfers program control to the 
subroutine starting at the specified line number. A PEN STOP statement is 
automatically executed, to prevent a loop from occurring. You should use a 
RETURN statement to return to the line following the ON PEN statement; use 
RETURN line number to return to another program location. When GWBASIC 
returns from the trap routine, a PEN ON statement is automatically executed 
(unless you place a PEN OFF statement in the trap routine). 


If PEN OFF has been executed prior to the ON PEN statement, GWBASIC does 
not execute a GOSUB when the light pen is activated. The event is not 
stored in memory. 
If PEN STOP has been executed prior to the ON PEN statement, no GOSUB is 
executed, but the event is stored in memory so that trapping will take 
place when PEN ON is next executed. 

Example 
50 PEN ON 
60 ON PEN GOSUB 200 
200 REM Pen trap subroutine 


250 RETURN 


Transfers control to the subroutine at line 200 when the light pen is 
activated. GWBASIC returns to line 60 upon completion. 
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ON PLAY 


Purpose 


Causes an event trap when the Music Background queue goes from n notes to 
n-1 notes. 


Syntax 


ON PLAY (n) GOSUB //ne number 


Comments 


п is an integer expression in the range 1 to 32. Values outside this range 
result in ап Illegal function call error. 


Line number is the statement line number of the Play event trap subroutine. 


PLAY ON Enables PLAY event trapping. 
PLAY OFF Disables PLAY event trapping. 
PLAY STOP Suspends PLAY event trapping. 


Rules to remember when using PLAY: 


1. A PLAY event trap is issued only when playing in Music Background mode 
(i.e., PLAY "MB..). Play event traps are not issued when running in 
Music Foreground mode (i.e., default case, or PLAY "MF..). 


2. A PLAY event trap is not issued if the Music Background queue is 
already empty when a PLAY ON is executed. 


3. Choose conservative values for n. An ON PLAY (32).. statement causes 


event traps so often that there is little time left for program 
execution. 
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ON STRIG 


Purpose 


Transfers control to a specified line number when one of the joystick 
triggers is activated. 


Syntax 


ON STRIGC^)GOSUB //ne number 


Comments 


A STRIG(n) ON statement must be executed before using ON STRIG(n). Replace 
the n parameter with the number of the joystick trigger to be trapped: 


Indicates trigger A1 
Indicates trigger B1 
Indicates trigger A2 
Indicates trigger B2 


AANO 


Line number is the first line number of the joystick event trap routine. 

If you specify a line number of 0, joystick trapping is disabled. If you 
specify a valid line number with ON STRIG(n), GWBASIC checks to see if the 
joystick trigger specified in n was activated before processing each new 
statement. 


If the joystick trigger was activated, GWBASIC transfers program control to 
the subroutine starting at the specified line number. A STRIG(n) STOP 
statement is automatically executed, to prevent a loop from occurring. You 
sshould use a RETURN statement to return to the line following the ON 
STRIG(n) statement; use RETURN line number to return to another program 
location. When GWBASIC returns from the trap routine, a STRIG(n) ON 
statement is automatically executed (unless you place a STRIG(n) OFF 
statement in the trap routine). 


If STRIG(n) OFF has been executed prior to the ON STRIG(n) statement, 
GWBASIC does not execute a GOSUB when the joystick trigger is activated. 
The event is not stored in memory. 


If STRIG(n) STOP has been executed prior to the ON STRIG(n) statement, no 
GOSUB is executed, but the event is stored in memory so that trapping will 
take place when STRIG(n) ON is next executed. 


Event trapping is performed only during program execution. If an ON ERROR 


statement produces an error trap, all event trapping for ON PEN, ON PLAY, 
ON COM, ON TIMER, and other ON PEN and ON STRIG statements is disabled. 
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Example 


50 STRIG(2) ON 
60 ON STRIG(2) GOSUB 200 


200 REM Joystick trigger B1 trap subroutine 


250 RETURN 


Transfers control to the subroutine at line 200 when joystick trigger 


В1 is activated. Upon completion of the trap routine, GWBASIC returns 
to line 60. 


Reference 


STRIG(n) 
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ON TIMER 


Purpose 


Causes an event trap every n seconds. 


Syntax 


ON TIMER(^)GOSUB //ne number 


Comments 
n is a numeric expression in the range 1 through 864000 (1 second through 
24 hours). Values outside this range result іп an lllegal function call 


error. 


Line number is the statement line number of the TIMER event trap 


subroutine. 
TIMER ON Enables TIMER event trapping. 
TIMER OFF Disables TIMER event trapping. 
TIMER STOP Suspends TIMER event trapping. 
Example 


10 ON TIMER(60) GOSUB 10000 
20 TIMER ON 


10000 OLDROW 


= CSRLIN 'Save current row 
10010 OLDCOL = POS(O) 'Save current column 
10020 LOCATE 1,1:PRINT TIMES; 
10030 LOCATE OLDROW, OLDCOL “Restore Row and Column 


10040 RETURN 


Displays the time of day on Line 1 every minute 
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OPEN 


Purpose 


Opens a file. 


Syntax 
OPEN #//е mode 7 ,[#] £//e number , fi /езрес |, гес/еп | 


OPEN f//ename FOR file mode 2 AS [#] f//e number [LEN=rec/en | 


Comments 


In the first format, file mode 1 is a string expression whose first 
character is one of the following: 


O Specifies sequential output mode. 
| Specifies sequential input mode. 
R Specifies random input/output mode. 


In the second format, file mode 2 is a string constant -- INPUT, OUTPUT, or 
APPEND -- specified without double quotation marks ( "" ): 


OUTPUT Specifies sequential output mode. 
INPUT Specifies sequential input mode. 
APPEND Specifies sequential output where the file is 


positioned to the end of data on the file when 
it is opened. 


If file mode 2 is left out, random access becomes the default mode. 


File number is an integer expression returning a number in the range 1 
through 255. 


Filespec specifies the name of the file to be opened. 
Reclen is an integer expression in the range 1 through 32767. This value 


sets the record length to be used for random files (see the FIELD 
statement). If omitted, the record length defaults to 128 byte records. 
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The OPEN statement allocates a buffer for input/output to the file and 
determines the mode of access that is used with the buffer. Once a file 
has been opened, file number can be used by I/O. The OPEN statement must 
be used before executing the following commands: 


PRINT # WRITE # 
PRINT # USING INPUT * 
INPUT # GET 


LINE INPUT # PUT 


GET and PUT commands can be used only in files opened in random access mode 
and only disk files can be opened in this manner. 


When no device name is given, the active drive is assumed. 


А File not found error is displayed if the input file does not exist. If 
the output file does not exist, one is created. 


See OPEN COM for more details on communication files. 
Only one file per file number can be OPENed. 
OPEN allows pathname in place of filespec. 


OPEN permits a file to be opened for INPUT, OUTPUT, or APPEND regardless of 
whether a LEN= option is present. 


Note: You may not OPEN a file for OUTPUT or APPEND if the file is already 
Open in any mode. Since it is possible to reference the same file in a 
subdirectory via different paths, it is nearly impossible for GWBASIC to 

know that it is the same file simply by looking at the path. For this 
reason, GWBASIC does not let you open the file for OUTPUT or APPEND if it 
is on the same disk, even if the path is different. For example, if SALES 

is your current directory, the following commands all refer to the same 


file. 
OPEN "О", #1, "REPORT" 
OPEN "R",#3, "\DIVISION\SALES\REPORT " 
OPEN "|",#4, "\SALES\REPORT" 
OPEN "О", #2, "..\..\SALES\REPORT" 
Reference 
OPEN COM 
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OPEN COM 


Purpose 


Opens a communication file. 


Syntax 
OPEN "DEV :[ speed |, parity |, data |, stop 111] 
ЕР И, RSL CS 1o 1, 081 СОП PET" 
AS [*] fi /е number | LEN = number | 
Comments 
OPEN COM opens files for RS-232C communications adapters. 
DEV: is a valid communications device. Valid devices are: 


COM1 : COM? : COM3: 


Speed is a literal integer specifying the transmit/receive baud rate. 
Valid speeds are: 75, 110, 150, 300, 600, 1200, 2400, 4800, 9600. 


Parity is a one-character constant specifying the parity for transmit and 
receive as follows: 


О 000 Odd transmit/receive parity checking 

E EVEN Even transmit/receive parity checking 

М | NONE No transmit parity, no receive parity checking. 

S | SPACE Parity bit is always transmitted and received as space (O 
bit). 

M | MARK Parity bit is always transmitted and received as mark (1 
bit). 


Data is an integer constant indicating the number of transmit/receive data 
bits. Valid values are: 4, 5, 6, 7, or 8. 


Stop is an integer constant indicating the number of stop bits. Valid 
values are: 1 or 2. If omitted, then 110 bps transmit two stop bits, all 
others transmit one stop bit. 


The LF, RS, CS, DS, CD, and PE options affect the line signals. These 
options may appear in any order in the OPEN COM statement. These are: 


LF 
Used when communications file data is being printed on a serial line 


printer. A line feed character (OA hex) is automatically appended to a 
carriage return character (ОС hex). 
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The LF option used in the OPEN statement also affects how data is read 
with the INPUT* and LINE INPUT* statements. Reading stops when а 
carriage return character is encountered. 


The line feed character is ignored by the INPUT* and LINE INPUT* 
statements. 


RS 


Suppresses the request-to-send control character (1E hex). If the RS 
option is not used, the RTS action occurs automatically when the 
communications file is opened. 


CS[n] 


Controls clear-to-send. [л] specifies the number of milliseconds that 
pass before the host times out. Valid [n] values are O to 65535, 
inclusive. The default value is 1000. If no [n] value is specified or 
the value equals O, the line status is not checked. 


Subsequent communications files I/O statements won't work if the CS[n] 
option is not selected. 


DS[n] 


Controls the Data set ready message. [n] specifies the number of 
milliseconds that pass before the host times out. Valid [n] values 
range from O to 65535, inclusive. The default value is 1000. If no 
[n] value is specified or the value equals O, the line status is not 
checked. 


Subsequent communications file I/O statements won't work if the DS[n] 
option is not selected. 


CD[n] 


Controls the Carrier detect message. [n] specifies the number of 
milliseconds that pass before the host times out. Valid [n] values 
range from O to 65535, inclusive. The default values is 0. If no 
value is given or the default is accepted, the line status is not 
checked. 


The CD option is often referred to as the RLSD (Received line signal 
detect ) message. 


PE 


Activates parity checking. If the PE option is omitted, the default 

(no parity check) is active. If a parity error is detected, a Device 

I/O error message appears. The high order bit is turned for 7 or fewer 
data bits. Framing and overrun errors always turn on the high order 

bit and generate aDevice 1/0 error message. 
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Number is the maximum number of bytes that can be read from the 
communications buffer when using the GET or PUT statement. The default is 
128 bytes. 


When CTRL Z is received, it is treated as the end of the file. If a file 
is closed, CTRL Z is received as a command. TAB changes position and 
carriage return is treated as a new line. When LF is assigned, it is 
paired with each carriage return. 


File number is an integer expression returning a valid file number. The 
number is then associated with the file for as long as it is OPEN and is 
used to refer other COM I/O statements to the file. 


Missing parameters invoke the following defaults: 


Speed = 300bps 
Parity = EVEN 
Bits =/7 


OPEN COM is very similar to the OPEN command except that it applies to 
input and output of the RS-232C communications adapter. 


If you are transmitting or receiving numeric data, you must specify 8 data 
bits. 


A COM device may be OPENed to only one file number at a time. 


A Device timeout error occurs if the RS-232C asynchronous communications 
adapter is not installed correctly. 


Reference 


OPEN 
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OPTION BASE 


Purpose 


Declares the minimum value for array subscripts. 


Syntax 


OPTION BASE n 


Comments 
The default value of n is O. If the statement 
OPTION BASE 1 
is executed, the lowest value an array subscript may have is 1. 


The CHAINed program may now have an OPTION BASE statement if no arrays are 


passed. The CHAINed program inherits the OPTION BASE value of the CHAINing 
program. 


Note: In GWBASIC 1.0, OPTION BASE gave an error even if the new value was 
the same as the old. 
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OUT 


Purpose 


Sends a byte to a machine output port. 


Syntax 


OUT /,4 


Comments 


I and J are integer expressions in the range O to 65535. J is the port 
number; J is the data to be transmitted. 


OUT is the complementary statement to the INPUT statements. 


Example 
100 OUT 12345,225 
In assembly language, this is equivalent to: 
MOV DX, 12345 


MOV AL,225 
OUT DX, AL 
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PAINT 


Purpose 


Fills an arbitrary graphics figure of the specified fill attribute. 


Syntax 


PAINT (xstart,ystart )[, paint attribute 
|, border attribute |, background attribute ]]] 


Comments 


Xstart and ystart are the coordinates of the starting point within the area 
to be filled. They can be noted in either absolute or relative form. 


The paint attribute chooses from the attribute range for the current screen 
mode. The border attribute sets the border color of the figure to be 
filled in the attribute range for the current screen mode. You must 
specify both paint color and border color. Background is a 1-byte string 
expression used in paint tiling. See page 2-95. Refer also to the COLOR 
statement for detail. 


PAINT must start on a non-border point, otherwise PAINT has no effect. 


PAINT supports " tiling’ -- the repetition of a pattern along a row and down 
the columns of the screen. Like LINE, PAINT looks at a tiling mask each 
time a point is put down on the screen. 


If paint attribute is omitted, the standard foreground attribute is used. 
If paint attribute is a numeric formula, then the number must be a valid 
color and is used to paint the area as before. 


PAINT can fill any figure, but PAINTing jagged edges or very complex 
figures may result in an Out of Memory error. If this happens, you must 
use the CLEAR statement to increase the amount of stack space available. 


The paint attribute defaults to the foreground attribute if not given, and 
the border attribute defaults to the paint attribute. 


If paint attribute is a string formula, then tiling is performed as 
follows: 


The tile mask is always 8 bits wide and may be from 1 to 64 bytes long. 
Each byte in the tile string masks 8 bits along the x axis when putting 
down points. Each byte of the tile string is rotated as required to align 
along the y axis such that the tile byte mask = y MOD tile length. 


This is done so that the tile pattern is replicated uniformly over the 
entire screen (as if a PAINT 0,0) were used. 
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X increases bit of tile byte 


X,y 8 7 6 5 4 3 2 1 

0,0 x x X x x X X x Tile byte 1 
0,1 X ж ж X X X X. X Tile byte 2 
0,2 x X x x x X X x Tile byte 3 
0,63 x X X =x X — X — X # Tile byte 64 


Table 2-1 PAINT Tiling Patterns 


In high-resolution mode (SCREEN 2), the screen can be painted with x’s 
using the following statement: 


PAINT (320,100), CHRS(&H81) + CHR$(&H42) + CHR$(&H24) + CHRS(&H18) + 
CHR$(&H18) + CHR$(&H24) + CHR$(&H42) + CHR$(&H81) 


This appears on the screen as: 


0,0 X X CHR$ ( &H81) 
Tile byte 1 
О, 1 X x CHR$ ( &H42 ) 
Tile byte 2 
0.2 x x CHR$ ( &H24 ) 
Tile byte 3 
0,3 X X CHR$ ( &H18) 
Tile byte 4 
0,4 X X CHR$ (&H18 ) 
Tile byte 5 
0,5 x x CHR$ ( &H24) 
Tile byte 6 
0,6 x x CHR$ (&H42) 
Tile byte 7 
id. x x CHRS ( &H8 1 ) 
Tile byte 8 


Since there are 2 bits per pixel in medium-resolution (SCREEN 1), each byte of 
the tile pattern only describes 4 pixels. In this case, every 2 bits of tile 
byte describe 1 of the 4 possible colors associated with each of the 4 pixels 
to be put down. 
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Background attribute is a string formula returning one character. When 
omitted, the default is CHR$(O). 


When supplied, background attribute specifies the background tile pattern or 
color byte to skip when checking for boundary termination. 


Occasionally, you may want to tile paint over an already painted area that is 
the same color as two consecutive lines in the tile pattern. Normally, PAINT 
quits when it encounters two consecutive lines of the same color as the point 
being set (the point is surrounded). It is not possible to draw alternating 

blue and red lines on a red background without this parameter. PAINT stops as 
soon as the first red pixel is drawn. Specifying red [CHR$(&HAA)] as the 
background attribute allows the red line to be drawn over the red background. 


You cannot specify more than two consecutive bytes that match the background 
attribute in the tile string. Specifying more than two bytes results in an 
Illegal function call error. 


For additional information about tiling, see the file TILE.TXT on the GWBASIC 
3.11 disk. 
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PALETTE 


This statement is not supported in GWBASIC 3.11. Colors are 
specified through graphics statements or the COLOR statement. 
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PALETTE USING 


This statement is not supported in GWBASIC 3.11. Colors are 
specified through graphics statements or the COLOR statement. 
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PEN 


Purpose 


Reads the light pen. 


Syntax 


PEN ON 

PEN OFF 
PEN STOP 
х= РЕМС 5) 


Comments 


x is the numeric variable receiving the PEN value 


n is a valid numeric expression returning an unsigned integer in the range 


О to 9 


x =PEN(n) reads the light pen coordinates, where n is: 


O Returns -1 if pen was down since last poll, O if not. 


1 


Returns the x pixel coordinate when pen was last pressed. 
Range O to 319 (medium resolution), or O to 639 (high 
resolution). 


Returns the y pixel coordinate when pen was last pressed. 
Range O to 199 (medium resolution). 


Returns the current pen switch value: -1 if down, O if up. 


Returns the last known valid x pixel coordinate. Range O to 
319 (medium resolution) or O to 639 (high resolution). 


Returns the last known valid y pixel coordinate. Range O to 
199 (medium resolution). 


Returns the character row position when pen was last pressed. 
Range 1 to 24. 


Returns the character column position when pen was last 
pressed. Range 1 to 40 or 1 to 80, depending on SCREEN. 


Returns the last known valid character row. Range 1 to 24. 


Returns the last known valid character column position. Range 
1 to 40 or 1 to 80, depending on SCREEN. 
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The PEN function is initially off. A pen read function call results in an 
Illegal function call error. A PEN ON statement must be executed before 
any pen read function calls can be made. 


Conversely, for execution speed improvements, it is a good idea to turn the 
pen off with a PEN OFF statement for those programs not using the Light 
Pen. 


Example 


100. CLS:LOCATE , ,O 

110 PEN ON 

120 ON PEN GOSUB 140 
130 GOTO 120 

140 X=PEN(1) : Y=PEN(2) 
150 PSET (X,Y) 

160 RETURN 


Reference 


ON PEN 
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PLAY 


Purpose 


To play melody indicated by character string. 


Syntax 


PLAY string expression 


Comments 
The single character commands in PLAY are: 
A-G[ #,+, or-] 


Play the note indicated by the letter. A number sign (#) or plus sign 
(+) following the letter means sharp, and a minus sign (-) means flat. 


Length. Sets the length of each note. 14 is a quarter note, 11 is a 
whole note, etc. m may range from 1 to 64. 


The length may also follow the note when it is desired to change the 
length only for the note. In this case, А16 is equivalent to L16A. 


Music Foreground. Music (PLAY statement) and SOUND are to run in 
Foreground. That is, each subsequent note or sound does not start 
until the previous note or sound is finished. 


It is possible to escape from the PLAY statement by pressing CTRL 
BREAK. 


Music Background. Music (PLAY statement) and SOUND are to run in 
background. That is, each note or sound is placed in a buffer allowing 
the GWBASIC program to continue execution while music plays in the 
background. Up to 32 notes (or rests) can be played in background at a 
time. 


Music Normal. Each note plays 7/8ths of the time determined by L 
(length). 
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Music Legato. Each note plays the full period set by Г. (length). 


MS 
Music Staccato. Each note plays 3/Aths of the time determined by L 
(length). 

Nn 
Play note n. n may range from O to 84. In the 7 possible octaves, 
there are 84 notes. л=0 means rest. 

On 
Octave. Sets the current octave. There are 7 octaves (0-6). Each 
octave begins with C and ends with B. 

Pn 
Pause. Р may range from 1 to 64. Length is the same as Ln. Please 
refer to the section. 

Tn 
Tempo. Sets the number of L4’s in a minute. л may range from 32 to 
255. Default is 120. 
Dot or Period. After each note, causes the note to play 3/2 times the 
period determined by, L (length) times T (tempo). Multiple dots may 
appear after the note. The period is scaled accordingly (For example: 
A. = 3/2, A.. = 9/4, A... = 27/8, etc.). Dots may appear after a pause 
(P) and scale the pause length as described above. 

< > 
Decrement (<) and increment (>) octave. Decrement octave does not 
decrement below octave 0, and increment does not increment above octave 
6. 

Xstring 


Execute substring. 


The n in each command can be given either as a constant or a variable. 
Also, the X command can be used to change the tempo or the octave in a 
repeat PLAY. 
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Examples 


10 PLAY "MBMNT120L 16" 
20 FOR 1=1 TO 5 
30 PLAY "01; СОЕЕСАВ" 


40 NEXT 
PLAY "<<" 'Decrement Octave twice 
PLAY ">A" ‘Increment Octave and play note A 
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POKE 


Purpose 


. Writes a byte into a memory location. 


Syntax 


FORE fu 


Comments 


The integer expression J is the address of the memory location to be POKEd. 
The integer expression J is the data to be POKEd. I must be in the range 0 
to 65536; J must be in the range 0 to 255. 


The complementary function to POKE is PEEK. The argument to PEEK is an 
address from which a byte is to be read. See PEEK in Chapter 3 for more 
information. 


POKE and PEEK are useful for efficient data storage, loading assembly 
language subroutines, and passing arguments and results to and from 
assembly language subroutines. 


Example 


10 POKE &HSAOO, &HFF 
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PRINT 


Purpose 


Outputs data at a terminal. 


Syntax 


PRINT | /ist of expressions | 


Comments 


If list of expressions is omitted, a blank line is printed. If list of 
expressions is included, the values of the expressions is included, the 
values of the expressions are printed at the terminal. The expressions in 
the list may be numeric and/or string expressions (strings must be enclosed 
in quotation marks). 


Print Positions. The position of each printed item is determined by the 
punctuation used to separate the items in the list. GWBASIC divides the 

line into print zones of 14 spaces each. In the list of expressions, a 

comma causes the next value to be printed at the beginning of the next 
zone. A semicolon causes the next value to be printed immediately after 
the last value. Typing one or more spaces between expressions has the same 
effect as typing a semicolon. 


If a comma or a semicolon terminates the list of expressions, the next 
PRINT statement begins printing on the same line, spacing accordingly. If 
the list of expressions terminates without a comma or a semicolon, a 
Carriage return is printed at the end of the line. If the printed line is 
longer than the terminal width, GWBASIC goes to the next physical line and 
continues printing. 


Printed numbers are always followed by a space. Positive numbers are 
preceded by a space. Negative numbers are preceded by a minus sign. 
Single precision numbers that can be represented with 6 or fewer digits in 
the unscaled format no less accurately than they can be represented in the 
scaled format, are output using the unscaled format. For example, 1E-7 is 
output as .0000001 and 1E-8(-7) is output as 1E-08. Double precision 
numbers that can be represented with 16 or fewer digits in the unscaled 
format no less accurately than they can be represented in the scaled 
format, are output using the unscaled format. For example, 1D-15 is output 
as .0000000000000001 and 1D-16 is output as 1D-16. A question mark may be 
used in place of the word PRINT in a PRINT statement. 


2-104 / GWBAS/C Commands and Statements 


10 X=5 
20 PRINT Х+5, Х-5, X*(-5), X^5 
30 END 


10 О 25 3125 


In this example, the commas іп the PRINT statement cause each value to 
be printed at the beginning of the next print zone. 


10 INPUT X 

20 PRINT X “SQUARED IS" X^2 "AND"; 
30 PRINT X "CUBED IS" X^3 

40 PRINT 

90 GOTO 10 


? 9 
9 SQUARED IS 81 AND 9 CUBED IS 729 


ка 
21 SQUARED IS 441 AND 21 CUBED IS 9261 


? 
Press the CTRL aand BREAK keys together to exit from this program. 


In this example, the semicolon at the end of line 20 causes both PRINT 
statements to be printed on the same line, and line 40 causes a blank 
line to be printed before the next prompt. 


10 FOR X= 1 TO 5 
20 J=J+5 

30 K=K+10 

40 ?Ј;К; 

50 NEXT X 


> 10 0 20. 15 30 20 40 25 50 
In this example, the semicolons in the PRINT statement cause each value 
to be printed immediately after the preceding value. A number is 


always preceded by a space and positive numbers are preceded by a 
space. In line 40, a question mark is used instead of the word PRINT. 
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PRINT USING 


Purpose 


Prints strings or numbers using a specified format. 


Syntax 


PRINT USING string exp; /ist of expressions 


Comments 


List of expressions comprises the string expressions or numeric expressions 
that are to be printed, separated by semicolons. String exp is a string 
constant (or variable) comprising special formatting characters. These 
formatting characters (see below) determine the field and the format of the 
printed strings or numbers. 


String Fields. When PRINT USING is used to print strings, one of three 
formatting characters may be used to format the string field: 


/ 


Specifies that only the first character in the given string is to be 
printed. 


\n spaces\ 


Specifies that 2+п characters from the string are to be printed. If 
the backslash characters are typed with no spaces, two characters are 
printed; with one space, three characters are printed, and so on. If 
the string is longer than the field, the extra characters are ignored. 
If the field is longer than the string, the string is left-justified in 
the field and padded with spaces on the right. 


Specifies a variable length string field. When the field is specified 
with &, all of the characters you assigned to the string are printed. 


Examples 


10 A$="LOOK" :B$="QUT" 

30 PRINT USING "!"; АЗ; В8 

40 PRINT USING "V \";A$;B$ 

50 PRINT USING "V \";A$;B$; "l!" 


LOOK OUT 
LOOK OUT  !! 


2-106 / GWBAS/C Commands and Statements 


10 A$="LOOK" :B$="OQUT" 

20 PRINT USING "1";A$; 
30 PRINT USING "&";B$ 

RUN 

LOUT 


Numeric Fields. When PRINT USING is used to print numbers, the following 
special characters may be used to format the numeric field: 


# 
A number sign (#) is used to represent each digit position. Digit 
positions are always filled. If the number to be printed has fewer 
digits than positions specified, the number is right-justified 
(preceded by spaces) in the field. 
A decimal point may be inserted at any position in the field. If the 
format string specifies that a digit is to precede the decimal point, 
the digit is always printed (as 0 if necessary). Numbers are rounded 
as necessary. For example: 
PRINT USING "##.##"; . 78 
0.78 
PRINT USING "“###.##";987.654 
987.65 
PRINT USING "##.## ";10.2,5.3,66.789, .234 
10.20. 5.30 66.79 0.23 
In the last example, three spaces were inserted at the end of the 
format string to separate the printed values on the line. 
+ 


A plus sign (+) at the beginning or end of the format string causes the 
sign of the number (plus or minus) to be printed before or after the 
number. 


A minus sign (-) at the end of the format field causes negative numbers 
to be printed with a trailing minus sign. For example: 


PRINT USING "+##.## ";-68.95,2.4,55.6,-.9 
-68.95 +2.40 +55.60 -0.90 


PRINT USING "##.##- ";-68.95,22.449,-7.01 
68.95- 22.45  7.01- 
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A AAA 


2-108 


жж 


$$ 


A double asterisk (**) at the beginning of the format string causes 
leading spaces in the numeric field to be filled with asterisks. The 
** also specifies positions for two more digits. For example: 


PRINT USING “**#.# — ':12.39,-0.9, 765.1 
*12,4  *-0.9 — 7651. 


A double dollar sign ($$) causes a dollar sign to be printed to the 
immediate left of the formatted number. The $$ specifies two more 
digit positions, one of which is the dollar sign. The exponential 

format cannot be used with $$. Negative numbers cannot be used unless 
the minus sign trails to the right. For example: 


PRINT USING "$S###.##";456.78 
$456.78 


A comma that is to the left of the decimal point in a formatting string 
causes a comma to be printed to the left of every third digit to the 
left of the decimal point. A comma that is at the end of the format 
string is printed as part of the string. A comma specifies another 
digit position. The comma has no effect if used with the exponential 
(1777) format. For example: 


PRINT USING "####, .##"; 1234.5 
1,234. 9U 


Four carats (or up-arrows) may be placed after the digit position 
characters to specify exponential format. The four carats allow space 
for E+xx to be printed. Any decimal point position may be specified. 
The significant digits are left-justified, and the exponent is 

adjusted. Unless a leading + or trailing + or - is specified, one 

digit position is used to the left of the decimal point to print a 
space.or a minus sign. For example: 


PRINT USING "##. ##^^^^" ; 234.56 
г. do FUE 


PRINT USING ".####°***—" ; 888888 
.8889Е+06 


PRINT USING "+. ##^^^^" ; 123 
+ T12E*08 
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% 


An underscore ( _ ) in the format string causes the next character to 
be output as a constant character. 


PRINT USING " |#4#.##1!1";12.34 
112.341 


The constant character itself may be an underscore by placing two 
underscores ( ___) in the format string. 


If the number to be printed is larger than the specified numeric field, 
a percent sign is printed in front of the number. If rounding causes 
the number to exceed the field, a percent sign is printed in front of 
the rounded number. 


PRINT USING "##.##"; 111.22 
67111.22 


PRINT USING “.##"; .999 
%1.00 


If the number of digits specified exceeds 24, an || legal function call 
error results. 
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PRINT# and PRINT# USING 


Purpose 


Writes data to a sequential disk file. 


Syntax 


PRINT#7//e number, | USING string expression;] /ist of expressions 


Comments 


File number is the number used when the file was OPENed for output. 
String expression comprises formatting characters as described in PRINT 
USING. The expressions in a list of expressions are the numeric and/or 
String expressions that are written to the file. 


PRINT* does not compress data on the disk. An image of the data is written 
to the disk, just as it would be displayed on the terminal with a PRINT 
statement. For this reason, care should be taken to delimit the data on 

the disk, so that it is input correctly from the disk. 


In the list of expressions, numeric expressions should be delimited by 
semicolons. For example: 


PRINT#1,AsBsC: A: YZ 


If commas are used as delimiters, the extra blanks that are inserted 
between print fields are also written to disk. 


String expressions must be separated by semicolons in the list. To format 

the string expressions correctly on the disk, use explicit delimiters in 

the list of expressions. 

For example, if A$-"CAMERA" and B$="93604-1" then the statement 
PRINT«1,A$;B$ 


would write CAMERA93604-1 to the disk. Because there are no delimiters, 
this could not be input as two separate strings. To correct the problem, 
insert explicit delimiters into the PRINT* statement as follows: 


PRINT#1,A$;",";B$ 


The image written to disk now is CAMERA,93604-1, which can be read back 
into two string variables. 


If the strings themselves contain commas, semicolons, significant leading 


blanks, carriage returns, or line feeds, write them to disk surrounded by 
explicit quotation marks, using CHR$(34). 
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For example, if A$="CAMERA, AUTOMATIC" and B$="93604-1", the statement 
PRINT#1,CHR$ (34) ; A$; CHR$ (34) ; СНА$ (34) ;BS;CHRS$ (34) 

writes "CAMERA, AUTOMATIC"" 93604-1" to disk. 

The succeeding statement 
ІМРОТ #1, А$, В$ 

would input "CAMERA, AUTOMATIC" to A$ and" 93604-1" to B$. 


The PRINT* statement may also be used with the USING option to control the 
format of the disk file. For example: 


PRINT#1,USING"$S###4.#4#4,";J;K5L 


Reference 


See WRITE# in this chapter for more information. For more examples using 
PRINT#, see Appendix A. 


GWBAS/C Commands and Statements / 2-111 


PSET and PRESET 


Syntax 


PSET (х,у), co/or ] 
PRESET (х,у), co/or | 


Purpose 


Draws a dot at the assigned position on the screen. 


Comments 


(x,y) are coordinates for drawing (setting) a dot; may be either absolute 
or relative. 


Color assigns dot color. The range of color value depends on graphics 
mode. Refer to the CIRCLE statement in detail. 


PRESET has an identical syntax to PSET. The only difference is that if no 
third parameter is given, the background color O (zero) is selected. "When 
a third argument is given, PRESET is identical to PSET. 


If an out of range coordinate is given to PSET or PRESET, no action is 
taken nor is an error given. If color is greater than the permitted value, 
this results in an |! |еда! function call! error. 


Example 


100 SCREEN 2 

110 FOR Х=0 TO 100 
120 Y=(X*X)/100 
130 PSET (X,Y) 

140 NEXT 
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PUT (Files) 


Purpose 


Writes a record from a random buffer to a random disk file. 


Syntax 


PUT [#] fi /e number |, record number | 


Comments 


File number is the number under which the file was OPENed. If record 
number is omitted, the record has the next available record number (after 


the last PUT). The largest possible record number is 32767. The smallest 
record number is 1. 


Note: PRINT*, PRINT* USING, and WRITE# may be used to put characters in 
the random file buffer before a PUT statement. In the case of WRITE*, 


GWBASIC pads the buffer with spaces up to the carriage return. Any attempt 
to read or write past the end of the buffer causes a Field overflow error. 


Examples 


See Appendix A. 
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PUT (COM) 


Purpose 
Allows fixed length I/O for COM. 


Syntax 


PUT f//e number ,nbytes 


Comments 
File number is an integer expression returning a valid file number. 


nbytes is an integer expression returning the number of bytes to be 
transferred into or out of the file buffer. 
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PUT (Graphics) 


Purpose 


Outputs graphic patterns in the assigned position on the screen. 


Syntax 


РОТ (х,у), array name |, operation | 


Comments 


(x,y) are coordinates of the upper left-hand corner of the rectangular 
region on the screen. 


Array name is the name of the numerical array containing the graphic 
pattern being output on the screen. 


In contrast to GET, PUT causes the array data to be output on the screen. 
Operation is the assigned operation to be performed with data already 
displayed on the screen when a graphic pattern is output on the screen. 
Operations include PSET, PRESET, XOR (the default if not specified), OR, 
and AND: 

PSET 


Outputs the graphic pattern contained in the array on the screen as is 
(the opposite operation from GET). 


PRESET 


Reverses the graphic pattern contained in the array and outputs it on 
the screen (similar to a photographic negative). 


AND 
Outputs to the screen the result of combining the graphic pattern 
contained in the array and the data already displayed on the screen, on 
a 1 to 1 basis. 

OR 


The graphic pattern in the array is output on the screen overlapping 
the data already displayed there. 
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XOR 


The result of performing the XOR operation on the data on the screen 
and the graphic pattern in the array is output on the screen. In other 
words, if points are already displayed (set) at certain coordinates, 


the data that corresponds to the graphic pattern contained in the array 
are reversed (NOT) at those points. 


If points are not set, the data corresponding to the array are 
displayed directly on the screen. Assigning the XOR function is 
effective in displaying patterns moving over a background. 


If the output graphic pattern is larger than the screen size, it results in 
an Illegal function call error. 


Reference 


GET 
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RANDOMIZE 


Purpose 


Reseeds the random number generator. 


Syntax 


RANDOMIZE [expression ] 


Comments 


If expression is omitted, GWBASIC suspends program execution and asks for a 
value by printing 


Random Number Seed (-32768 to 32767)? 
before executing RANDOMIZE. 


If the random number generator is not reseeded, the RND function returns 

the same sequence of random numbers each time the program is RUN. To 
change the sequence of random numbers every time the program is RUN, place 
a RANDOMIZE statement at the beginning of the program and change the 
argument with each RUN. 


RANDOMIZE with no arguments prompts you for a new seed. RANDOMIZE 
expression no longer forces floating point values to integer values. 
Expression may be any numeric formula. 


To get a new random seed without prompting, you can use the new numeric 
TIMER function as expression, as in the second example below. 


Example 
10 RANDOMIZE 
20 FOR 1=1 TO 5 
30 PRINT КМО; 
40 NEXT | 
RUN 


Random Number Seed (-32768 to 32767)? 3 (user types 3) 
.88598 .484668 .586328 .119426 . 709225 

Ok 

RUN 

Random Number Seed (-32768 to 32767)? 4 (user types 4 for new sequence) 
. 803506 . 162462 . 929364 . 292443 ‚322921 

Ok 

RUN 

Random Number Seed (-32768 to 32767)? 3 (same sequence as first RUN) 
.88598 . 484668 . 586328 .119426 . 709225 

Ok 
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READ 


Purpose 


Reads values from a DATA statement and assigns them to variables. 


Syntax 


READ //st of variables 


Comments 


A READ statement must always be used in conjunction with a DATA statement. 
READ statements assign variables to DATA statement values on a one-to-one 
basis. READ statement variables must be numeric or string, and the values 
read must agree with the variable types specified. If they do not agree, a 
Syntax error results. (See DATA for more information.) 


A single READ statement may access one or more DATA statements (they are 
accessed in order), or several READ statements may access the same DATA 
statement. If the number of variables in list of variables exceeds the 
number of elements in the DATA statement(s), an OUT OF DATA message is 
printed. If the number of variables specified is fewer than the number of 
elements in the DATA statement(s), subsequent READ statements begin reading 
data at the first unread element. If there are no subsequent READ 
statements, the extra data is ignored. 


To reread DATA statements from the start, use the RESTORE statement. 


Examples 


80 FOR 1=1 TO 10 


90 READ A(I) 

100 NEXT | 

110 DATA 3.08,5.19,3.12,3.98,4.24 
120 DATA 5.08,5.55,4.00,3.16,3.37 


This program segment READs the values from the DATA statements into the 
array A. After execution, the value of A(1) is 3.08, and so on. 
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10 PRINT "CITY", "STATE", "ZIP" 
20 READ C$,S$,Z 
30 DATA "DENVER, ", COLORADO, 80211 


40 PRINT C$,S$,Z 


Ok 

RUN 

CITY STATE ZIP 
DENVER, COLORADO 80211 
Ok 


This program READSs string and numeric data from the DATA statement in 
line 30. 
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REM 


Purpose 


Allows explanatory remarks to be inserted in a program. 


Syntax 


REM remark 


Comments 


REM statements are not executed but are output exactly as entered when the 
program is listed. 


REM statements may be branched into (from a GOTO or GOSUB statement), and 
execution continues with the first executable statement after the REM 
statement. 

Remarks may be added to the end of a line by preceding the remark with a 
single quotation mark (') instead of :REM. 


WARNING 


Do not use REM in a data statement because it will be considered legal 
data. 


Examples 


120 REM CALCULATE AVERAGE VELOCITY 
130 FOR 1=1 TO 20 
140 SUM=SUM + У(1) 


ог, 


120 FOR 1=1 TO 20 ‘CALCULATE AVERAGE VELOCITY 
130 SUM=SUM + V(I) 
140 NEXT | 
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RENUM 


Purpose 


Renumbers program lines. 


Syntax 


RENUM [[new number ]L,[ o/d number |, increment ]1] 


Comments 


New number is the first line number to be used in the new sequence. The 
default is 10. Old number is the line in the current program where 
renumbering is to begin. The default is the first line of the program. 


Increment is the increment to be used in the new sequence. The default is 
10. 


RENUM also changes all line number references following GOTO, GOSUB, THEN, 
ON...GOTO, ON...GOSUB, and ERL statements to reflect the new line numbers. 
If a nonexistent line number appears after one of these statements, the 

error message Undefined line xxxxx in yyyyy is printed. The incorrect 
line number reference (xxxxx) is not changed by RENUM, but line number 
yyyyy may be changed. 


Note: RENUM cannot be used to change the order of program lines (for 
example, RENUM 15,30 when the program has three lines numbered 10,20,and 


30) or to create line numbers greater than 65529. An Illegal function 
call error results. 

Examples 
RENUM 


Renumbers the entire program. The first new line number is 10. Lines 
increment by 10. 


RENUM 300,,50 


Renumbers the entire program. The first new line number is 300. Lines 
increment by SO. 


RENUM 1000, 900, 20 


Renumbers the lines from 900 up so they start with line number 1000 and 
increment by 20. 
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RESET 


Purpose 


Closes all disk files and deletes all system buffers. 


Syntax 
RESET 
Comments 
If all open files are on disks, the RESET command is the same as the CLOSE 


command with no file numbers specified. 


Reference 


CLOSE 
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RESTORE 


Purpose 


Allows DATA statements to be reread from a specified line. 


Syntax 


RESTORE [//ne number | 


Comments 


After you execute a RESTORE statement, the next READ statement accesses the 
first item in the program’s first DATA statement. If line number is 

specified, the next READ statement accesses the first item in the specified 
DATA statement. 


The CHAIN performs a RESTORE function before running the CHAINed program. 
This resets the pointer to the DATA statements. 


Example 
10 READ A,B,C 
20 RESTORE 


30 READ D,E,F 
40 DATA 57, 68, 79 
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RESUME 


Purpose 


Continues program execution after an error recovery procedure has been 
performed. 


Syntax 
RESUME 
RESUME O 
RESUME NEXT 
RESUME //ne number 


Comments 


Any one of the four formats shown above may be used, depending upon where 
execution is to resume: 


RESUME 
Or 
RESUME O 
Execution resumes at the statement which caused the error. 
RESUME NEXT 


Execution resumes at the statement immediately following the one which 
caused the error. 


RESUME //ne number 
Execution resumes at line number. 
A RESUME statement that is not in an error trap routine causes a RESUME 
without error message to be printed. 
Example 
10 ON ERROR GOTO 900 


900 IF (ERR-230)AND(ERL-90) THEN PRINT 
"TRY AGAIN":RESUME 80 
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RETURN 


Purpose 


Returns program control after completion of a subroutine. 


Syntax 


RETURN [//ne number | 


Comments 


The RETURN statement is used following a subroutine to return program 
control to the line number following the GOSUB statement that called the 
subroutine. 


RETURN line number allows non-local returns from any subroutine. Replace 
line number with the number of the line to which you want to return. 


This form of RETURN was especially designed for use with event-trapping 
routines. As the last statement in an event-trapping routine, RETURN line 
number lets you return to the GWBASIC program at a point that eliminates 
the GOSUB entry that the trap created. 


You should use the non-local form of RETURN carefully, because all other 


GOSUB, WHILE, and FOR statements active at the time of the trap remain 
active. 


Example 


10 OPEN "EMPDATA" FOR INPUT AS 1 


100 GOSUB 1200 ‘Get employee data 
110 WRITE #1, NAME$, ADDR$, HIREDATES 


1200 INPUT "EMPLOYEE NAME"; NAMES 
1210 INPUT "ADDRESS"; ADDR$ 

1220 INPUT "HIREDATE";HIREDATES 
1230 RETURN 


Reference 


GOSUB...RETURN 
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RMDIR 


Purpose 


Removes a directory. 


Syntax 


RMDIR pathname 


Comments 
Pathname is a string expression not exceeding 128 characters that 
identifies the subdirectory to be removed from its parent. RMDIR works 
exactly like the MS-DOS command RMDIR. 
Example 
RMDIR "SALES" 
Removes a subdirectory called SALES from a directory called 


WEST/REPORT/SALES (assuming your current directory is the root 
directory). 
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RUN 


Purpose 
Executes the program currently in memory. With the R option, loads a file 
from disk into memory and executes it. 
Syntax 
RUN 
RUN [//ne number ] 
RUN #/ /епале |, Е | 
Comments 
If line number is specified, exécution begins on that line. Otherwise, 
execution begins at the lowest line number. GWBASIC always returns to 


command level after a RUN is executed. 


If filename is specified, it is the name used when the file was SAVEd. 
(with MS-DOS, the default extension .BAS is supplied). 


RUN closes all open files and deletes the current contents of memory before 
loading the designated program. However, with the R option, all data files 
remain OPEN. 


Examples 


RUN 
RUN "NEWFIL",R 


Reference 


Appendix A 
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SAVE 


Purpose 


Saves a program file on disk. 


Syntax 


SAVE f//ename 
SAVE filename |, ^] 
SAVE fi /епале |, P ] 


Comments 


Filename is a quoted string conforming to MS-DOS’s filenaming requirements 
(with MS-DOS, the default extension .BAS is added). If filename already 
exists, the file is written over. 


The program is saved to the file specified in filename. If the device name 
is omitted the active drive in use is assumed. 


If filename is less than 1 character or greater than 8 characters in 
length, a Bad file name error is issued and the save is aborted. 


Use the A option to save the file in ASCII format. Otherwise, GWBASIC 
saves the file in a compressed binary format. ASCII format takes more 
space on the disk, but some disk access requires that files be in ASCII 
format. For instance, the MERGE command requires an ASCII format file, and 
some operating system commands such as LIST may require an ASCII format 
file. 


Use the P option to protect the file by saving it in an encoded binary 
format. You can RUN or LOAD a file protected with the P option normally, 
but any attempt to view the program using LIST or to change it using EDIT 
causes an lllegal function call error to be issued. You cannot unprotect 
a file saved with the P option. 


Examples 
SAVE"MYF ILE" 
SAVE"COM2",A 
SAVE"PROG",P 

Reference 
Appendix B 


2-128 /GWBAS/C Commands and Statements 


SCREEN 


Purpose 


Sets screen attributes. 


Syntax 


SCREEN [mode ][,[ burst JI,[ apage |, ураде 11] 


Comments 
Mode specifies the screen mode: 


Elementary text (40 or 80 characters) 
Elementary graphics 320x200 

Elementary graphics 640x200 

Extended graphics 640x200 (sixteen color) 
Extended graphics 720x348 (two color) 


WN = © 


1, 2, and 3 above are valid when a color display is connected. Mode = 3 
Operates in two color mode when the hardware for the active screen is set 
to MONO and in sixteen color mode when the hardware for the active screen 
is set to COLOR. 


Burst is a numeric expression that is either true or false. This enables 
or disables the color mode. False (zero) in the text mode (mode = 0) 
disables color (only black and white), and true (non-zero) enables it. In 
medium resolution (mode = 1), true (non-zero) disables color, and false 
(zero) enables it. In high resolution (mode = 2), only black and white are 
available, so this parameter is ineffective. 


Apage (active page) selects the page that is written by the output 
statement for the screen. This parameter is specified by a numeric 
expression containing a value O to -1 (for the maximum page, see Chapter 
1.) 


Vpage (visual page) indicates the page to be displayed on the screen and is 
specified in the same manner as apage. Vpage may be different from apage. 


If the specification of vpage is omitted, it is assumed to be the same as 
apage. If all parameters are valid, the new screen mode is stored in 
memory and the current screen is erased. Foreground color is set to white 
while background color and border color are set to black. If the new 
screen mode is the same as the old screen mode, nothing changes. If only 
apage and vpage are specified in the text mode, the displayed page is 
changed. At the time GWBASIC is started, both pages are zeros. Using 
apage and vpage, a page can be displayed on the screen while another is 
being created. 
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Note: Each parameter can be omitted. When it is omitted, the old value 
remains except for vpage. If a value outside the allowable range is 
specified, an Illegal function call error is caused. In such a case, the 
old value remains. 
Examples 
10. SCREEN 0, 1, 0, O 
The color text mode is selected.  Apage and vpage are both zero. 


20 SCREEN ,, 1, 3 


Mode and burst remain unchanged.  Apage is 1 and vpage is 3. 
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SHELL 


Purpose 


Loads and executes another program (.COM, .EXE, or .BAT) file. When the 
program finishes, control returns to the GWBASIC program at the statement 
following the SHELL statement. A program executed under control of GWBASIC 
is called a child process. 


Syntax 


SHELL [command string ] 


Comments 


Child processes (or children) are executed when the SHELL statement loads 

and runs a copy of COMMAND.COM. This is the same as the MS-DOS COMMAND /C 
option to load a secondary command processor. By using COMMAND in this 

way, you may execute internal MS-DOS commands like DIR, PATH, COPY, and 

SORT and redirect standard input and output. Any program parameters are 
automatically routed to the default file control blocks (FCBs). 


Note: SHELL searches for COMMAND.COM on the drive and directory specified 
in the COMSPEC statement in your environment. Before using the SHELL 
statement, make sure there is a copy of the MS-DOS file COMMAND.COM in the 
root directory of the drive MS-DOS was booted from. For example, if you 
booted MS-DOS from Drive A, there should be a copy of COMMAND.COM on your 
BASIC disk. 


If you enter SHELL with no command string, a copy of COMMAND.COM is loaded 
and the MS-DOS prompt appears. You can enter any internal MS-DOS 
commands. To return to GWBASIC, type EXIT at the command line and press 
RETURN. Command string contains the name of the program you want to run. 
Optionally, the string may contain parameters to the child program. 


If no extension is specified for the program, COMMAND.COM looks for a .COM 
file, then an .EXE file, and then a .BAT file. If no matching files are 
found, SHELL issues a File not found error message. 


Arguments separated from the program name by at least one blank space are 
processed as replaceable parameters to the program specified in command 
string. 


When a SHHLL statement is executed, GWBASIC remains in memory while the 
child process is running. When the child process finishes, GWBASIC 
continues. 


If you are using SHELL to execute a .BAT file, it must contain the EXIT 
command as the last line of the batch file. 
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You cannot use SHELL to load another copy of GWBASIC. If you attempt to 


run GWBASIC as a child process, the You cannot SHELL to BASIC message is 
displayed. 


Because child processes may open files and use devices differently than the 
parent program, GWBASIC cannot totally protect its environment during SHELL 
operations. The following guidelines will help to prevent programs running 
under SHELL from harming the GWBASIC environment. 


1. If possible, preserve the current state of all hardware during a SHELL 


command. It is recommended that you refrain from using certain devices 
within child processes. 


o Child processes may modify screen mode parameters. To insure that 
you return to GWBASIC in the screen mode you expect, follow the 
SHELL statement in your program with CLS. 


о Interrupt vectors used by GWBASIC are saved when you execute 
SHELL. However, you should save and restore any interrupt vectors 
the child must use. The child process may perform this task. 


о Certain devices (interrupt controller, counter timer, DMA 
controller, I/O latch, and USART) are placed in a specific state by 
GWBASIC, and should be left untouched by the child process. 


2. If a child process alters a file opened by the parent GWBASIC program, 
the application can fail or produce unpredictable results. If it is 
necessary to update such files, they should be closed in the parent 
process before the SHELL statement is executed. Reopen the files upon 
returning to GWBASIC. 


3. Before executing a SHELL statement, GWBASIC frees any memory that is 
not being used. If you start GWBASIC with the /M option, however, 
GWBASIC assumes that you are attempting to load an assembly language 
routine outside of its memory block. This prevents GWBASIC from 


"compressing the workspace " before executing SHELL and may result in 
an Out of memory error. 


The preferred method is to load assembly language routines before 
starting GWBASIC. This is done by placing INT 27H at the end of your 
assembly language routine. The INT 27H code allows the routine to 
terminate as stay resident. For example: 


CSEG SEGMENT CODE 


;Machine language subroutine 


RET ;Last instruction 
START: 

INT 2 /h ;Terminate, stay resident 
CSEG ENDS 


END START 


2-132 /GWBAS/C Commands and Statements 


Be sure to load these subroutines by running them before you start 
GWBASIC. You can do this by placing them in an AUTOEXEC.BAT file. 


A child process should never terminate and stay resident. Doing so may not 

leave enough memory for GWBASIC to expand its workspace to the original 

size. If GWBASIC cannot restore the workspace, it closes all files, 

displays the error message Can't continue after SHELL, and exits to MS-DOS. 
Example 


100 OPEN "MAILLIST.DAT" FOR OUTPUT AS #4 


200 CLOSE 4 
210 SHELL "SORT «MAILLIST.DAT >MAILSORT.DAT" 
220 OPEN "MAILSORT.DAT" FOR INPUT AS #5 


Writes program data from lines 40-100 to file MAILLIST.DAT for sorting 
into file MAILSORT.DAT. 
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SOUND 


Purpose 


Generates sound through the speaker. 


Syntax 


SOUND freg,duration 


Comments 


Freq is the desired frequency in Hertz (cycles per second). This must be 
an unsigned integer in the range 37 to 32767. 


Duration is the desired duration in Clock ticks. Duration must be a 
numeric expression in the range 0 to 65536. 


Current clock ticks occur 18.2 times per second. 


There is no break in program execution when sound is generated with the 
SOUND statement. Execution is continued until the next SOUND statement. 


If duration is 0, any current SOUND statement that is running is turned 
off. If no SOUND statement is running, SOUND x, 0 has no effect. 


When duration is not 0, the next SOUND statement is not executed until the 
sound generated by the previous SOUND statement ends. 


In order to obtain an interval in which no sound is produced, assign 32767 
as freq. 
Example 


100 SOUND RND*1500, INT (RND* 10) 
110 GOTO 100 
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STOP 


Purpose 


Terminates program execution and returns to command level. 


Syntax 


STOP 


Comments 


STOP statements may be used anywhere in a program to terminate execution. 
When a STOP is encountered, the following message is printed: 


Break in line nnnnn 
Unlike the END statement, the STOP statement does not close files. 


GWBASIC always returns to command level after a STOP is executed. 
Execution is resumed by issuing a CONT command. 


Example 


10 INPUT A,B,C 

20 K-A^2*5.3:L-B^3/.26 
30 STOP 

40 M=C*K+100:PRINT M 
RUN 

f deis 

BREAK IN 30 
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STRIG 


Purpose 


Enables and disables event trapping when the joystick triggers are pressed. 


Syntax 


STRIG(^ ) ON 
STRIG(n ) OFF 
STRIG(^) STOP 


Purpose 


You must execute a STRIG(n) ON statement to enable event trapping with the 
ON STRIG(n) statement. Replace the л parameter with the number of the 
joystick trigger to be trapped: 


Indicates trigger A1 
Indicates trigger B1 
Indicates trigger A2 
Indicates trigger B2 


AANO 


After a STRIG(n) ON statement, GWBASIC checks to see if the joystick 
trigger specified in n was activated before processing each new statement. 


If STRIG(n) OFF is executed, GWBASIC does not execute a GOSUB when the 
joystick trigger is activated. The event is not stored in memory. 


If STRIG(n) STOP is executed, no trapping takes place, but the event is 


stored in memory so that trapping will take place when STRIG(n) ON is next 
executed. 
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SWAP 


Purpose 


Exchanges the values of two variables. 


Syntax 


SWAP variable, variable 


Comments 


Any type variable may be SWAPed (integer, single precision, double 
precision, string), but the two variables must be of the same type or a 
Type mismatch error results. 


10 A$=" ONE " : B$=" ALL " : C$=" FOR " 
20 PRINT A$ C$ B$ 

30 SWAP A$, B$ 

40 PRINT A$ C$ B$ 


ONE FOR ALL 
ALL FOR ONE 
Ok 
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SYSTEM 


Purpose 
Escapes from GWBASIC and returns to MS-DOS. 


Syntax 


SYSTEM 
Comments 


When SYSTEM is executed, all files are closed before returning to MS-DOS. 
All programs and data in memory are lost, so use care. 
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TIME$ 


Purpose 


Sets the time. 


Syntax 


TIME$=string expression 


Comments 


TIME$ complements the TIME$ function, which retrives the time. String 
expression returns one of the following: 


hh Sets the hour; minutes and seconds default to 0. 
АА: тт Sets the hour and minutes; seconds default to O. 
hh:mm:ss Sets the hour, minutes, and seconds. 


A 24-hour time notation is used. 8:30 p.m. is entered as 20:30:00. 


Example 
T IME$="20:30:00" 


The current time is set to 8:30 p.m. 


GWBAS/C Commands and Statements / 2-139 


TIMER 


Purpose 


TIMER ON enables real time event trapping. 
TIMER OFF disables real time event trapping. 
TIMER STOP suspends real time event trapping. 


Syntax 
TIMER ON 


TIMER OFF 
TIMER STOP 


Comments 


The TIMER ON statement enables real time event trapping by an ON TIMER 
statement. GWBASIC checks between every statment to see if the timer has 
reached the specified level. If it has, the ON TIMER statement is 

executed. 


TIMER OFF disables the event trap. If an event takes place, it is not 
remembered if a subsequent TIMER ON is used. 


TIMER STOP disables the event trap, but if an event occurs, it is 


remembered and an ON TIMER statement is executed as soon as trapping is re- 
enabled. 


Reference 


ON TIMER 
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TRON and TROFF 


Purpose 


Traces the execution of program statements (TRaceON/TRaceOFF). 


Syntax 


TRON 
TROFF 


Comments 


Used as an aid in debugging, the TRON statement is executed in either the 
direct or indirect mode. It enables a trace flag that prints each line 
number of the program as it is executed. The numbers appear enclosed in 
square brackets. The trace flag is disabled with the TROFF statement (or 
when a NEW command is executed). 


10 K=10 

20 FOR J=1 TO 2 
30 L=K + 10 

40 PRINT J;K;L 
50 K=K+10 

60 NEXT 

70 END 


RUN 
[10][20][30][40] 1 10 20 
[50][60][30][40] 2 20 30 
[50][60][70] 
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VIEW 


Purpose 


Defines a physical viewport limit from Ух1,Уу1 (upper left x,y coordinates) 
to Vx2,Vy2 (lower right x,y coordinates). 


Syntax 


VIEW [[screen][Vx1, Vy1)-(Vx2,Vy2)[,[#/// JL. border 1111! 


Comments 


The x and y coordinates must be within the physical bounds of the screen 
and define the rectangle within the screen that graphics will map into. 
Initially, RUN, or VIEW with no arguments defines the entire screen as the 
viewport. 


Fill allows you to fill the view area with a color. If fill is omitted, 
the view area is not filled. 


Border lets you draw a line surrounding the viewport if space for a border 
is available. If border is omitted, no border is drawn. 


For VIEW (Vx1,Vy1)-(Vx2,Vy2) , all points plotted are relative to the 
viewport. That is, Vx1 and Vyl are added to the x and y coordinates before 
putting down the point on the screen. If the statement: 


VIEW(10, 10) - (200, 100) 


is executed, the point set down by the statement PSET (0,0),3 is at the 
physical screen location 10,10. For the statement: 


VIEW SCREEN (Vx1,Vy1)-(Vx2, Vy2) 


all coordinates are absolute and may be inside or outside of the screen 
limits, but only those within the VIEW limits are plotted. If: 


VIEW SCREEN (10, 10) – (200, 100) 
is executed, the point set down by the statement PSET (0,0),3 does not 


appear because 0,0 is outside of the viewport.  PSET (0,0),3 is within the 
viewport, and places the point in the upper-left hand corner. 
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WAIT 


Purpose 
Suspends program execution while monitoring the status of a machine input 
port. 

Syntax 


WAIT port number, /[,VJ] 


Comments 


The WAIT statement causes execution to be suspended until a specified 
machine input port develops a specified bit pattern. 


I and J are integer expressions. The data read at the port is exclusively 
OR’ed with the integer expression J, and then AND'ed with /. If the result 
is zero, GWBASIC loops back and reads the data at the port again. If the 
result is nonzero, execution continues with the next statement. If J is 
omitted, it is assumed to be zero. 


Caution 


It is possible to enter an infinite loop with the WAIT statement. If an 
infinite loop is encountered during program execution, you can proceed in 
one of two ways: terminate the program execution by pressing the CTRL and 
BREAK keys, or restart your computer manually by pressing CTRL, ALT, and 
DEL, or the RESET button. 


Example 


100 WAIT 32,2 
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WHILE. ..WEND 


Purpose 


Executes a series of statements in a loop as long as a given condition is 
true. 


Syntax 


WHILE expression 
[ loop statements ] 
WEND 

Comments 


If expression is not zero (i.e., true), loop statements are executed until 
the WEND statement is encountered. GWBASIC then returns to the WHILE 
statement and checks expression. If it is still true, the process is 
repeated. If it is not true, execution resumes with the statement 
following the WEND statement. 


WHILE...WEND loops may be nested to any level. Each WEND matches the most 
recent WHILE. An unmatched WHILE statement causes a WHILE without WEND 
error, and an unmatched WEND statement causes a WEND without WHILE error. 


Example 


90 ‘BUBBLE SORT ARRAY A$ 

100 FLIPS=1 “FORCE ONE PASS THRU LOOP 
110 WHILE FLIPS 

T5 FLIPS=0 

120 FOR 151 TO J-1 


130 IF А$(1)>А%(1+1) THEN 
SWAP A$(1),A$(1+1) :FLIPS=1 

140 NEXT | 

150 WEND 
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WIDTH 


Purpose 
Sets the printed width in number of characters for the screen and line 
printer. 
Syntax 
WIDTH s/ze 
WIDTH #//е number, size 
WIDTH dev, size 


Comments 


Size must be a numeric expression in the range O through 255. This is a 
new width. 


File number must be a numeric expression (integer) in the range 1 through 
29595. 


Dev must be a valid string expression for the device identifier. Valid 
devices are: SCRN:, LPT1:, LPT2:, LPT3:, COM1:, COM2:, and COM3:. 


GWBASIC automtically adds a carriage return and line feed when the 
specified width in the WIDTH statement is reached. 


Depending upon the device specified, the following actions are possible: 
WIDTH s/ze 
or 
WIDTH "SCRN:", s/ze 
This sets the screen width. Only 40- or 80-column width is allowed. 
Note: Changing the screen width causes the screen to be cleared. 


If the screen is in Medium Resolution Graphics Mode (SCREEN 1), WIDTH 80 
forces the screen into High Resolution Graphics Mode (SCREEN 2). 


If the screen is in High Resolution Graphics Mode (SCREEN 2), WIDTH 40 
forces the screen into Medium Resolution Grpahics Mode (SCREEN 1). 
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WIDTH dev, s/ze 
This form of WIDTH stores the new width value without actually changing the 
current width setting. A subsequent OPEN, LIST "LPTn:" (n=1-3), or LLIST 
statement uses this value and set the new width to it. 

WIDTH £//e number, size 
The file number resets the currently open file to the output width. 
WIDTH cannot be executed from the keyboard (KYBD:). 
A file may be associated with LPT1:, LPT2:, COM1:, COM2:, and COM3:. 


No error message appears, even if the specified print width is larger than 
can be accepted by the printer in use. 


Specifying WIDTH 255 for the Line Printer disables line folding. This has 
the effect of infinite width. 


Reference 


SCREEN 
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WINDOW 


Purpose 


Draws lines, graphs, or objects in space not bounded by the physical limits 
of the screen. 


Syntax 


WINDOW [[SCREEN] (Wx1,Wy1)-(Wx2,Wy2) | 


Comments 


The WINDOW statement defines the window transformation from Wx1,Wy1 (upper 
left x,y coordinates) to Wx2,Wy2 (ower right x,y coordinates). This is 
done by using arbitrary coordinates you select called world coordinates. 


A world coordinate is any valid single precision floating point number 
pair. GWBASIC then converts world coordinate pairs into the appropriate 
physical coordinate pairs for subsequent display with screen space. To 
make this transormation from world space to the physical space of the 
viewing screen, you must know which portion of the unbounded (floating 
point) world coordinate space contains the information you want to be 
displayed. This rectangular region is called a window. 


The x and y coordinates may be any single precision floating point number. 
They define the world coordinate space that graphics will map into the 
physical coordinate space defined by the VIEW statement. 

WINDOW inverts the y coordinate on subsequent graphics statements. This 
allows the screen to be viewed in true cartesian coordinates. If you 
execute the command: 


NEW 
SCREEN 2 


the screen appears as: 


320,0 
y increases 


320,100 





320.199 
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If you then execute the command: 
WINDOW (-1,-1)-(1,1) 


the screen appears as: 


-1,1 G1 


y increases 


| y decreases 


=] 0-1 


0,0 





The WINDOW SCREEN variant does not invert the y coordinate. If you execute 
the command: 


WINDOW SCREEN (-1,-1)-(1, 1) 


the screen appears as: 


-1-! 0-1 
y decreases 


| y increases 


-1,1 0,1 


0,0 





WINDOW with no arguments (ог RUN) disables window transformation. 
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WRITE 


Purpose 


Outputs data at the terminal. 


Syntax 


WRITE [//st of expressions] 


Comments 


If list of expressions is omitted, a blank line is output. If list of 
expressions is included, the values of the expressions are output at the 
terminal. The expressions in the list may be numeric and/or string 
expressions, and they must be separated by commas. 


When the printed items are output, each item is separated from the last by 
a comma. 


Printed strings are delimited by quotation marks. After the last item in 
the list is printed, GWBASIC inserts a carriage return/line feed. 


WRITE outputs numeric values using the same format as the PRINT statement. 


Example 


10 A=80:B=90:C$="THAT’S ALL" 
20 WRITE A,B,C$ 

RUN 

80,90, "THAT'S ALL" 

Ok 
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WRITE# 


Purpose 


Writes data to a sequential file. 


Syntax 


WRITEs7//e number,/ist of expressions 


Comments 


File number is the number under which the file was OPENed in O mode. The 


expressions in the list are string or numeric expressions, and they must be 
separated by commas. 


The difference between WRITE* and PRINT* is that WRITE# inserts commas 
between the items as they are written to disk and delimits strings with 


quotation marks. Therefore, it is not necessary for you to put explicit 


delimiters in the list. A carriage return/line feed sequence is inserted 
after the last item in the list is written to disk. 


Examples 


If A$="CAMERA" and B$2"93694-1", the statement: 
WRI ТЕ#1, АЗ, ВФ 


writes the following image to disk: 


"CAMERA", "93604-1" 


A subsequent INPUT* statement, such as: 


INPUT#1,A$,B$ 


would put "CAMERA" toA$ and "93604-1" toB$. 


2-150 /GWBAS/C Commands and Statements 


CHAPTER 3 
GWBASIC FUNCTIONS AND VARIABLES 


The intrinsic functions provided by GWBASIC are presented in this chapter. The 
way these functions are presented is the same as in Chapter 2. The GWBASIC 
functions, unlike user-defined functions, may be called from any program 
without further definition. 


Arguments to functions are always enclosed in parentheses. In the formats 
given for the functions in this chapter, the arguments have been abbreviated as 
follows: 


X and Y Represent any numeric expressions 
I and J Represent integer expressions 
X$ and Y$ Represent string expressions 


If a floating point value is supplied where an integer is required, GWBASIC 
rounds the fractional portion and uses the resulting integer. 


Note: With the GWBASIC interpreter, only integer and single precision results 
are returned by functions. 


As an exception to the description of the /D command line option in Chapter 1, 
some transcendental functions with a double precision argument are evaluated in 
double precision. 


Syntax 


ABS C X) 


Comments 


Returns the absolute value of the expression X. 


Example 


PRINT ABS(7*(-5)) 
35 
Ok 


Syntax 
ASC ( X$ ) 


Comments 


Returns a numerical value that is the ASCII code of the first character 
of the string X$. 


If X$ is null, an lllegal function call error is returned. See 
Appendix I for ASCII codes. 


Example 


10 X$ = "TEST" 
20 PRINT ASC(X$) 
RUN 

84 

Ok 


Reference 


See the CHR$ function for ASCII-to-string conversion. 
See Appendix I for a list of ASCII codes. 
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ATN 


Syntax 


ATNC X) 


Comments 
Returns the arctangent of X in radians. 


Result is in the range -pi/2 to pi/2. The expression X may be any 
numeric type, but the evaluation of ATN is always performed in single 
precision. 


Example 


10 INPUT X 
20 PRINT ATN(X) 
RUN 
?3 
1.249046 
Ok 


CDBL 


Syntax 
CDBL ( X) 


Comments 


Converts X to a double precision number. 


Example 


10 A = 454.67 

20 PRINT A;CDBL (A) 

RUN 

454.67 454.6700134277344 
Ok 


GWBAS/C Functions and Variables / 3-3 


CHR$ 


Syntax 


CHR$ ( / ) 


Comments 
Returns a string whose one element has ASCII code J. 
CHR$(nnn) is commonly used to send a special character to the 
terminal. Replace nnn with the decimal ASCII code. (ASCII codes are 
listed in Appendix H.) 
For example, the BEL character CHR$(7) could be sent as a preface to an 


error message, or a form feed CHR$(12) could be sent to clear a CRT 
screen and return the cursor to the home position. 


Example 
PRINT CHR$(66) 
B 
Ok 


Reference 


See the ASC function for ASCII-to-numeric conversion. 
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CINT 


Syntax 
CINTCX) 


Comments 


Convert X to an integer by rounding the fractional portion. 


If X is not in the range -32768 to 32767, an Overflow error occurs. 


Example 


PRINT CINT(45.67) 
46 
Ok 


Reference 


See the CDBL and CSNG functions for converting numbers to the double 
precision and single precision data type. 


See also the FIX and INT functions, both of which return integers. 


COS 
Syntax 
COS CX) 
Comments 
Returns the cosine of X in radians. 
Calculations of COS(X) are performed in single precision. 
Example 
10 X = 2*COS(.4) 
20 PRINT X 
RUN 
1.842122 
Ok 
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CSNG 


Syntax 


CSNG C X ) 


Comments 


Converts X to a single precision number. 


Example 


10 Аж = 975.342184# 
20 PRINT A#; CSNG(A#) 
RUN 

975.342184 975.3422 
Ok 


Reference 


See the CINT and CDBL functions for converting numbers to the integer 
and double precision data types. 


CSRLIN 

Syntax 
CSRL IN 

Comments 
Returns the current line (or row) position of the cursor. The value 
returned is in the range 1 to 25. 
POSC) returns the column location of the cursor. 
The cursor position is set using the LOCATE statement. 

Reference 


LOCATE, POS, SCREEN 
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CVI, CVS, CVD 


Syntax 
CVI (2-byte string) 


CVS(4-byte string) 
CVD(8-byte string) 


Comments 
Converts string values to numeric values. 
Numeric values that are read in from a random disk file must be 
converted from strings back into numbers. CVI converts a 2-byte string 


to an integer. CVS converts a 4-byte string to a single precision 
number. CVD converts an 8-byte string to a double precision number. 


Example 


70 FIELD 41,4 AS N$, 12 AS B$,... 
80 GET *1 
90 Y=CVS(N$) 


Reference 


MKI$, MKS$, MKD$ 
Appendix A 
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DATE$ 


Syntax 
ОАТЕЗ = string expression 


string expression = DATES 


Comments 

Sets or retrieves the current system date. 
The date is kept in DATE$ and can be referred to or changed. The date 
is held in the 10-letter form yyyy-mm-dd where y is year, m is month, 
and d is day. This date must be set in DOS before GWBASIC is started 
up. The date can be formatted in the following manner: 

mm-dd-yy 

mm/dd/yy 

mm-dd-yyyy 

mm/dd/yyyy 
The year range is 1980 to 2077. If only one digit is used for the 


month or day, a zero (0) is placed in front of it. Furthermore, if the 
date is formatted with 2 digits, 19yy or 20yy is set automatically. 


ENVIRON$ 


Syntax 

ENVIRONS [string parameter ] 

ENVIRONS [^] 
Comment 

Retrieves a parameter string from GWBASIC's Environment String Table. 
The string result returned by ENVIRON$ may not exceed 255 characters. If a 
parameter name is specified and either cannot be found or has no text 


following it, a null string is returned. 


When the parameter name is specified, ENVIRON$ returns all the associated 
text following string parameter in the Environment String Table. 


If the argument п is used, the nth string in the Environment String Table 
is returned. It includes all text, and the parameter name. 


If nth string doesn't exist, a null string is returned. 
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Syntax 


EOF file number 


Comments 


Tests to see if the file specified in file number has ended. File 
number is specified by the filespec in the OPEN statement. 


The EOF function returns -1 (true) if the end of a sequential file has 
been reached. If true (-1) is returned for a communications file, this 
indicates that the buffer is empty. 


Use EOF to test for end-of-file while inputting to avoid Input past 
end errors. 


ERDEV and ERDEV$ 


Syntax 
ERDEV 
ERDEV$ 


Comments 
Provides a way to obtain device-specific status information. 
ERDEV is an integer function that contains the error code returned by 
the last device to declare an error. ЕКОЕУ is a string function that 
contains the name of the Device Driver that generated the error. 

ERDEV is set by the Interrupt 24 (hex) handler when an error within MS-DOS 


is detected. ERDEV contains the INT 24 error code in the lower eight 
bits. Neither function can be set by the user. 


Example 


If you have installed a device driver MYLPI2, and then run out of 
paper, the driver’s error number for that problem is 9: 


PRINT ERDEV, ERDEV$ 
yields: 


9 MYLPT2 
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ERR and ERL 


Syntax 
u=ERR 
v =ERL 

Comments 
Returns the error code and line number associated with an error. 
When an error handling subroutine is entered, the variable ERR contains the 
error code for the error, and the variable ERL contains the line number 
where the error was detected. The ERR and ERL variables are usually used 


in IF...THEN statements to direct program flow in the error trap routine. 


If the statement that caused the error was a direct mode statement, ERL 
contains 65535. To test if an error occurred in a direct statement, use 


IF 65535 = ERL THEN... 
Otherwise, use 
IF ERR = error code THEN... 
or 
IF ERL = //ne number THEN... 
If the line number is not on the right side of the relational operator, it 
cannot be renumbered by RENUM. Because ERL and ERR are reserved variables, 


neither may appear to the left of the equal sign in a LET (assignment) 
statement. GWBASIC error codes are listed in Appendix Е. 
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Syntax 


EXP ( X ) 


Comments 
Returns e to the power of X. 


X must be <=88.02969. If EXP overflows, the Overflow error message is 
displayed, machine infinity with the appropriate sign is supplied as 

the result, and execution continues. e is the base for natural 
logarithms. 


Example 
10 X = 5 
20 PRINT EXP (X-1) 
RUN 


54.59815 
Ok 


Syntax 


FIXCX) 


Comments 
Returns the truncated integer part of X. 


FIX(X) is equivalent to SGN(X)*INI(ABS(X)). The major difference 
between FIX and INT is that FIX does not return the next lower number 


for the negative X. 


Examples 


PRINT F1X(58.75) 
58 
Ok 


PRINT F1X(-58.75) 


-58 
Ok 
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Syntax 


FRE (0) 
FRE (X$) 


Comments 
Returns the number of bytes in memory not being used by GWBASIC. 


Arguments to FRE are dummy arguments. FRE ("") causes GWBASIC to 
"clean house" before returning the number of free bytes. Housecleaning 
is when GWBASIC assembles all of the strings that are still in use, 
freeing up unused parts of memory for additional data. GWBASIC does 
not initiate garbage collection until all free memory has been used 

up. Therefore, using FRE ("") periodically results in shorter delays 

for each housecleaning. 


Example 
PRINT FRE(O) 
14542 
Ok 
HEX$ 
Syntax 
HEX$ ( X ) 
Comments 
Returns a string which represents the hexadecimal value of the decimal 
argument. Х is rounded to an integer before HEX$(X) is evaluated. 
Example 


10 INPUT X 

20 A$ = HEXS(X) 

30 PRINT X "DECIMAL IS " A$ " HEXADECIMAL " 
RUN 

< за 

32 DECIMAL 15 20 НЕХАОЕС | МАС 

Ok 
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INKEY$ 


Syntax 


INKEYS 


Comments 


Returns either a one-character string containing a character read from 
the terminal or a null string if no character is pending at the 
terminal. 


No characters are echoed and all characters are passed through to the 
program except for CTRL BREAK which terminates the program. See 
Appendix H, Extended Codes, for information on reading special keys. 


Example 


1000 ‘TIMED INPUT ЗИВКОТ | МЕ 

1010 RESPONSE$=" " 

1020 FOR 1%=1 TO TIMELIMIT% 

1030 A$S=INKEY$ : IF LEN(A$)-O THEN 1060 
1040 IF ASC(A$)=13 THEN TIMEOUT€-O : RETURN 
1050 RESPONSE$=RESPONSE$+A$ 

1060 NEXT 1% 

1070 TIMEOUTX-1 : RETURN 


Syntax 


INPC/) 


Comments 
Returns the byte read from port Г. І must be in the range O to 65535. 
INP is the complementary function to the OUT statement. 
Example 
100 A=INP (54321) 
In assembly language, this is equivalent to: 
MOV ОХ, 54321 
ІМ  AL,DX 
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INPUT$ 


Syntax 
INPUTSCX [,[#] У D 


Comments 


Returns a string of X characters, read from the terminal or from file 
number Y. 


If the terminal is used for input, no characters are echoed and all 
control characters are passed through except CTRL BREAK which is used 
to interrupt the execution of the INPUT$ function. 


Examples 


5 'LIST THE CONTENTS OF A SEQUENTIAL FILE IN HEXADECIMAL 
10 OPEN T^, T; DATA" 
20 IF EOF(1) THEN 50 
30 PRINT HEX$(ASC(INPUT$(1,#1))); 
40 GOTO 20 
50 PRINT 
60 END 


100 PRINT "TYPE P TO PROCEED OR S TO STOP" 
110 X$-INPUTS(1) 

120 IF X$="P" THEN 500 

130 IF X$="S" THEN 700 ELSE 100 


INSTR 


Syntax 


INSTR ([ / ,] X$ , Y$) 
Comments 


Searches for the first occurrence of string Y$ in X$ and returns the 
position at which the match is found. 
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Optional offset J sets the position for starting the search. J must in 
the range 1 to 255. If I>LEN(X$) or if X$ is null or if Y$ cannot be 
found, INSTR returns J or 1. X$ and Y$ may be string variables, string 
expressions, or string literals. 


Example 

10 X$ = "АВСОЕВ" 

20 Y$ - "B" 

30 PRINT INSTR(X$, Y$); INSTR(4, ХФ, YS) 

RUN 

2 6 

Ok 
Note: If I«-0 is specified, error message lllegal function call in xxx is 
returned. 


Syntax 


INTCX) 


Comments 


Returns the largest integer <= X. 


Examples 
PRINT INT(99.89) 


99 
Ok 


PRINT INT(-12.11) 
=15 
Ok 


Reference 


See the FIX and CINT functions, which also return integer values. 
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IOCTL$ 


Syntax 


IOCTLS ([*] £//enumber ) 


Comments 


Receives acknowledgment that an IOCIL statement succeeded or failed, ог 
obtains current status information. 


IOCIL$ could also be used to ask a communications device to return the 
current baud rate, information on the last error, logical line width, 
etc. 
IOCIL$ only works if: 
1. The device driver is installed. 
2. The device driver states it processes IOCIL strings. 
3. GWBASIC performs an OPEN on a file on that device. 
Example 


10 OPEN "\DEV\PHONE" AS #1 
20 ТОСТ #1, "RAW" 


This example tells the device that the data is raw. 
30 IF IOCTL$ (1) = "Е" THEN CLOSE 1 


In this situation, if the character driver PHONE responds with an F 
from the raw data mode IOCIL statement, then the file is closed. 


Reference 


IOCTL 
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LEFT$ 


Syntax 


LEFT$CX$, /) 


Comments 
Returns a string comprising the leftmost J characters of X$. 


I must be in the range 0 to 255. If / is greater than LEN(X$), the 
entire string (X$) is returned. If J=0, the null string (length zero) 
is returned. 


Example 
10 A$ = "BASIC86 " 
20 BS = LEFT$(A$,5) 
30 PRINT В8 


BASIC 
Ok 


Reference 


MID$, RIGHT$ 


Syntax 


LEN( X$) 


Comments 


Returns the number of characters in X$. Non-printing character and 
blanks are counted. 


Example 


10 X$ = "PORTLAND, OREGON" 
20 PRINT LEN(X$) 

16 
Ok 
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Syntax 


LOC ( fi /e number ) 


Comments 
Returns the present location in the file. 


With random disk files, LOC returns the record number just read or 
written. With sequential files, LOC returns the number of sectors (in 
128 byte blocks) read from or written to the file since it was opened. 


If a sequential file is opened in the input mode, GWBASIC reads the 
first sector and the LOC function value is set at 1.* Numeric values 
given in sequential files are in 128 byte blocks. 


For a communications file, this statement returns the number of 
characters in the input queue waiting to be read. The input queue can 
hold more than 255 characters (determined by the /C: switch). If there 
are more than 255 characters in the queue, LOC(x) returns 255. Since a 
string is limited to 255 characters, this practical limit alleviates 

the need for the programmer to test for the string size before reading 
the data into it. If fewer than 255 characters remain on the queue, 
LOC(x) returns the actual count. 


LOC(n) functions for the disk files. For Random files, LOC returns the 
actual record position within the file. 


For sequential files, LOC returns the current byte position in the file 
divided by 128. This provides compatibility with programs written for 
earlier versions or GWBASIC. 


*When a file is opened for APPEND or OUTPUT, LOC returns the size of 
the file in bytes divided by 128. 
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Syntax 
LOF ( fi /e number ) 

Comments 
The LOF function returns the number of bytes allocated to the file. 
File number is tied to a currently opened file. 
LOF(n) functions for disk files. For Random files, LOF returns the 
size of the file in bytes. 
For sequential files, LOF returns the size of the file in bytes. When 
a file is opened for APPEND or OUTPUT, LOF returns the size of the file 
in bytes. 
When the disk file is assigned, the actual size of the file is returned 
in byte units. In GWBASIC, this file is made with units of 128 bytes, 
therefore the value is an integer multiple of 128. 
When the communication file is specified, LOF returns the amount of 
free space in the input buffer. That is, /C: size-LOC(x). The buffer 
size is ordinarily 256, but it is possible to change it with the 
optional /C:switch. 

Example 


100 OPEN "О", #1, "ТЕЗТ.ОАТ" 
110 INPUT A$ 

120 PRINT #1, A$ 

130 CLOSE #1 

140 OPEN "I", #2, "ТЕЗТ.ОАТ" 
150 PRINT LOF(2) 

160 CLOSE #2 

170 END 
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Syntax 


LoGCX) 


Comments 


Returns the natural logarithm of X. X must be greater than zero. 


Example 
PRINT LOG(45/7) 


1.860752 
Ok 


LPOS 


Syntax 


LPOS CX) 


Comments 
Returns the current position of the line printer print head within the 
line printer buffer. This does not necessarily give the physical 
partition of the print head at the time that LPOS is called. X is a 
dummy argument. 


Example 
100 IF LPOS(X)>60 THEN LPRINT CHR$(13) 
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MID$ 


Syntax 
MIDSCX$,/[, 7 |) 


Comments 


Returns a string of length J characters from X$, beginning with the /th 
character. 


I and J must be in the range 1 to 255. If J is omitted or if there are 
fewer than J characters to the right of the Ith character, all 


rightmost characters beginning with the /th character are returned. If 
I>LEN(X$), MID$ returns a null string. 
Example 
LIST 
10 A$="GOOD" 
20 B$-"MORNING EVENING AFTERNOON" 
30 PRINT A$;MID$(B$,8,8) 
Ok 
RUN 
GOOD EVENING 
Ok 
Note: If 1-0 is specified, error message lllegal argument in line number 


is returned. 
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MKI$, MKS$, MKD$ 


Syntax 


MKI$ ( integer expression) 
MKS$ ( integer expression) 
MKD$ ( integer expression) 


Comments 
Convert numeric values to string values. 


Any numeric value that is placed in a random file buffer with a LSET or 
RSET statement must be converted to a string. MKI$ converts an integer 
to a 2-byte string. MKS$ converts a single precision number to a 4- 
byte string. MKD$ converts a double precision number to an 8-byte 
string. 


Example 


90 AMT=(K+T) 
100 FIELD #1, 4 AS D$, 20 AS № 


110 LSET D$ = MKS$(AMT) 
120 LSET N$ = A$ 
130 PUT #1 

Reference 


CVI, CVS, CVD 
Appendix B. 


OCT$ 


Syntax 


DCTST X) 


Comments 


Returns a string that represents the octal value of the decimal 
argument. 


X is rounded to an integer before OCT$(X) is evaluated. 
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Example 
PRINT OCT$(24) 
30 
Ok 


Reference 


See the HEX$ function for hexadecimal conversion. 


PEEK 


Syntax 


PEEK ( / ) 


Comments 
Returns the byte (decimal integer in the range 0 to 255) read from 
memory location J, using the segment specified in the last DEF SEG 
statement. 
I must be in the range 0 to 65536. PEEK is the complementary function 
to the POKE statement. 


Example 


A=PEEK ( &H5AOO) 
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PLAY(n) 


Syntax 
v=PLAY(n) 


Comments 
Returns the number of notes currently in the background music queue. 
n is a dummy argument and may be any value. 


PLAY(n) returns O when in Music Foreground mode. 


PMAP 


Syntax 


v = РМАР (expression, function) 


Comments 


Maps an expression to logical or physical coordinates as follows: 


function = 0 Maps Logical expression to Physical x. 
Maps Logical expression to Physical y. 

2 Maps Physical expression to Logical x. 

2 Maps Physical expression to Logical y. 
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POINT 


Syntax 


POINT (x,y) 


Comments 
Reads the attribute value of a pixel from the screen. 
(x,y) are coordinates of the point that is being investigated. 


The color code of the dot with coordinates assigned by (x,y) is 
returned as a numerical value. 


If the point given is out of range, the value -1 is returned. 
The attribute value depends on the graphics mode: 


320x200 0-3 
640x200 0,1 


POINT (function) 


Syntax 


POINT C function) 


Comments 


Returns the value of the current x or y graphics accumulator as 


follows. 
function = 0 Returns the current Physical x coordinate. 
1 Returns the Current Physical y coordinate. 
2 Returns the Current Logical x coordinate if WINDOW is 


active, else returns the Current Physical coordinate as 
in O above. 


3 Returns the Current Logical y coordinate if WINDOW is 


active, else returns the Current Physical coordinate as 
in 1 above. 
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Syntax 


POS C / ) 


Comments 
Returns the current cursor position. 


The leftmost position is 1. J is a dummy argument. 


Example 
IF POS(X)>60 THEN PRINT CHR$(13) 


Reference 


LPOS 


RIGHT$ 


Syntax 


RIGHTS (C X$ , / ) 


Comments 
Returns the rightmost J characters of string X$. 


І must be >=0. If I=LEN(X$), returns X$. If 0, the null string 
(length zero) is returned. 


Example 


10 A$="DISK GWBASIC" 
20 PRINT RIGHT$(AS, 7) 
RUN 

GWBAS ІС 

Ok 


Reference 


MID$, LEFT$ 


3-26 /GWBAS/C Functions and Variables 


RND 

Syntax 
RND [C X )] 

Comments 
Returns a random number between O and 1. 
The same sequence of random numbers is generated each time the program 
is RUN unless the random number generator is reseeded (see RANDOMIZE). 
However, X«O always restarts the same sequence for any given X. 
Х>0 or X omitted generates the next random number in the sequence. X=0 
repeats the last number generated. 

Example 
10 FOR 1=1 TO 5 
20 PRINT INT(RND*100) ; 
30 NEXT 
RUN 

12 05 86 72 79 12 
SCREEN 

Syntax 
x = SCREEN( row,co/ [, z D 

Comments 


Returns the ASCII code (0-255) for the character from the screen at the 
specified row (line) and column. 


x is a numeric variable receiving the ordinal returned. 


Row is a valid numeric expression returning an unsigned integer in 
range 1 to 25. 


Col is a valid numeric expression returning an unsigned integer in the 
range 1 to 40 or 1 to 80, depending on the WIDTH. 


Z is a valid numeric expression returning a boolean result. 
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If the optional parameter 2 is given and non-zero, the color attribute 
for the character is returned instead. 


If г is false (0) ог is not specified, the ASCII code corresponding to 
the characters is given. 


If z is true, the color attribute (x) given by the SCREEN function has 
the following meaning: 


(x MOD16) foreground color 
(x-foreground/16)MOD 128) background color 
When x is greater than 127, it indicates blinking. 


Any values entered outside of these ranges result in an || legal 
function call error. 


Reference 


SCREEN 
Appendix I, Character Code Table 


Syntax 


SGN(X ) 


Comments 


If X»0, SGN(X) returns 1. 
If X20, SGN(X) returns 0. 
If X«0, SGN(X) returns -1. 


Example 


ON SGN(X)+2 GOTO 100, 200, 300 


Branches to 100 if X is negative, 200 if X is 0, and 300 if X is 
positive. 
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SIN 


Syntax 
SINCX) 


Action 


Returns the sine of X in radians. SIN(X) is calculated in single 
precision: COS(X) = SIN (Х+3.14159/2) 


Example 


PRINT SIN (1.5) 
.9974951 
Ok 


SPACE$ 


Syntax 
SPACES ( X ) 


Comments 


Returns a string of spaces length X. The expression X is rounded to an 
integer and must be in the range O to 255. 


10 FOR | = 1 TO 5 
20 X$ = SPACES(I) 
30 PRINT Х$; | 

40 NEXT | 


Reference 


SPC 
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SPC 


Syntax 


SPC ( / ) 


Comments 


Prints J blanks on the terminal. SPC may only be used with PRINT and 
LPRINT statements. 


I must be in the range 0 to 255. A semicolon (;) is assumed to follow 
the SPCU) command. 
Example 
PRINT "OVER" SPC(16) "THERE" 
OVER THERE 
Ok 
Reference 


SPACE$ 


SQR 


Syntax 


SQR C X ) 


Comments 


Returns the square root of X. X must be >=0. 


Example 


10 FOR X = 10 TO 25 STEP 5 
20 PRINT X, SQR(X) 


30 NEXT 

RUN 
10 3.1622/8 
13 3.872984 
20 4.472136 
25 5 

Ок 
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STICK 


Syntax 


STICK C^) 


Comments 
Returns the x and y coordinates of the two joysticks. 


n is a numeric expression return an unsigned integer in the range of O 
to 3. The values are: 


O Returns the x coordinate for joystick A. Also stores the x and 
y values for both joysticks for the following function calls: 


1 Returns the y coordinate of joystick A at the time of the last 
call to stick (0). 


2 Returns the x coordinate of joystick B at the time of the last 
call to stick (0). 


3 Returns the y coordinate of joystick В at the time of the last 
call to stick (0). 


Example 


10 CLS 

20 LOCATE 1,1 

30 PRINT "X= ";STICK(O) 
40 PRINT "Y= ";STICK(1) 
50 GOTO 20 


Creates an endless loop to display the value of the x,y coordinate 
for joystick A. You may use the CTRL and BREAK keys to terminate 
the endless loop. 
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STR$ 


Syntax 


STR$ 


Comments 


Returns a string representation of the value of X. 


Example 
5 REM ARITHMETIC FOR KIDS 


10 INPUT "TYPE A NUMBER";N 
20 ON LEN(STR$(N))-1 GOSUB 30, 100, 200, 300, 400, 500 


Reference 


VAL 
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STRIG 


Syntax 


x = STRIGC ^) 


Comments 
Return the status of a specified joystick trigger. 
n is a numeric expression returning an unsigned integer in the range O 
to 3, designating which trigger is to be checked. х is a numeric 
variable for storing the result of the function. 


The values for returning n are: 


O Returns -1 if trigger A was pressed since the last STRIG(O) 
statement; O if not. 


1 Returns -1 if trigger A is currently down; O if not. 


2 Returns -1 if trigger B was pressed since the last STRIG(2) 
statement; O if not. 


3 Returns -1 if trigger В is currently down; O if not. 


When a joystick trap occurs, that occurrence of the event is 
destroyed. Therefore the x=STRIG(n) function always returns false 
inside a subroutine, unless the event has been repeated since the 
trap. If you want to perform different procedures for various 
joysticks, you must set up a different subroutine for each joystick, 
rather than a single subroutine for all procedures. 


Example 


10 IF STRIG(O) THEN BEEP 
20 GOTO 10 


This is an endless loop which beeps whenever the trigger button on 
joystick O is pressed. You may use the CTRL and BREAK keys to 
terminate the endless loop. 
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STRING$ 


Syntax 


STRING$(/,J) 
STRINGS ( / , X$) 


Comments 


Returns a string of length Z whose characters all have ASCII code J or 
the first character of X$. 


Example 


10 X$ = STRING$(10, 45) 
20 PRINT X$ "MONTHLY REPORT" X$ 


RUN 
MONTHLY REPORT 
Ok 
TAB 

Syntax 
TAB C / ) 

Comments 
Spaces to position Г on the terminal. If the current print position is 
already beyond space J, TAB goes to that position on the next line. 
Space 1 is the leftmost position, and the rightmost position is the 
width of the output device. J must be in the range 1 to 255. TAB may 
only be used in PRINT and LPRINT statements. 

Example 


10 PRINT "NAME" TAB(25) "AMOUNT": PRINT 
20 READ AS,B$ 

30 PRINT A$ TAB(25) B$ 

40 DATA "G.T. JONES", "$25.00" 


RUN 

NAME .. AMOUNT 
G.T. JONES $25.00 
Ok 
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TAN 


Syntax 


TAN ( X) 


Comments 
Returns the tangent of X in radians. 
ТАКОО is calculated in single precision. If TAN overflows, the 
Overflow error message is displayed, machine infinity with the 
appropriate sign is supplied as the result, and execution continues. 
Example 


10 Y = Q*TAN(X) /2 
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TIME$ 


Syntax 


TIMES =string expr 
Sets the current time. 


string expr =TIMES$ 
Sets the current time. 
Comments 
Sets or retrieves the current time. 
String expr is a valid string constant or variable. 
TIME$ is a system variable and has a built-in clock 
For string expr = TIME$, TIME$ returns an 8-character string in the 
form hh:mm:ss where hh is the hour (00 to 23), mm is the minutes (00 to 
59), and ss is the seconds (00 to 59). 
For TIME$ = string expr, string expr may be one of the following forms: 
1. hh sets the hour. Minutes and seconds default to 00. 
2. hh:mm sets the the hour and minutes. Seconds default to OO 


3. hh:mm:ss sets the hour, minutes, and seconds. 


If any of the values are out of range, an Illegal function call error 
appears. 


If string expr is not a valid string, a Type mismatch error results. 


Example 
100 INPUT "TIME(HH:MM:SS)=";T$ 
110 TIMES-TS 
120 CLS 


130 LOCATE 10,20 
140 PRINT "PRESENT TIME IS ";TIMES 
150 GOTO 130 
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TIMER 


Syntax 


v = TIMER 


Comments 


Returns a single precision floating point number representing the 
elapsed number of seconds since midnight or system reset. 


It includes the fractional seconds to the degree possible. TIMER is a 
read-only function. TIMER may not be used as a user variable. 


Example 


RANDOM! ZE TIMER 


USR 


Syntax 


USR [ digit JC X) 


Comments 


Calls the user's assembly language subroutine with the argument X. 


Digit is in the range O to 9 and corresponds to the digit supplied with 


the DEF USR statement for that routine. If digit is omitted, USRO is 
assumed. 


Example 


40 B 
90. C 
60 D 


T*SIN(Y) 
USR(B/2) 
USR(B/3) 
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VAL 


Syntax 


VAL C X$ ) 


Comments 


Returns the numerical value of string X$. 


The VAL function also strips leading blanks, tabs, and line feeds from 
the argument string. For example: 


VAL ( "3" ) 


returns -3. 


Example 


10 READ МАМЕ$, СІТҮ$, ЅТАТЕФ, 21Р$ 

20 IF VAL(ZIP$)<90000 OR VAL(ZIP$)»96699 THEN 
PRINT МАМЕЗ TAB(25) "OUT OF STATE" 

IF VAL(ZIP$)»90801 AND VAL(ZIP$)<=90815 THEN 

PRINT NAMES TAB(25) "LONG BEACH" 


30 


Reference 


See the STR$ function for numeric-to-string conversion. 


3-38 / GWBAS/C Functions and Variables 


VARPTR 


Syntax 


VARPTR Cvar/ab/e name) 


VARPTR C * 7/ /е number ) 


Comments 


Format 1 returns the address of the first byte of data identified with 
variable name. A value must be assigned to variable name prior to 
execution of VARPTR. Otherwise an lllegal function call error 
results. Any type variable name may be used (numeric, string, array), 
and the address returned is an integer in the range 32767 to -32768. 
If a negative address is returned, add it to 65536 to obtain the actual 
address. 


VARPTR is usually used to obtain the address of a variable or array so 
it may be passed to an assembly language subroutine. A function call 

of the form VARPTR(A(O)) is usually specified when passing an array, so 
that the lowest addressed element of the array is returned. 


Note: All simple variables should be assigned before calling VARPTR 
for an array, because the addresses of the arrays change whenever a new 
simple variable is assigned. 


Format 2 returns the starting address of the GWBASIC file control block 
(FCB) assigned to file number. (This is different from the MS-DOS file 
control block.) 


VARPTR should be called just before you use it, because FCB is 
dynamically allocated during the execution of a program. 
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The FCB ( file control Block ) structure is as follows: 


Location Length Description 


0 1 The mode at file opening 
1 Sequential input 
2 Sequential output 
4 Random access 
16 APPEND 


32 Reserved by the system 
128 Reserved by the system 
1 38 MS-DOS file control block 
39 2 For sequential files: the number of sectors accessed 
For random files: the accessed record number +1 


41 1 Pointer to indicate the sector byte currently accessed 
42 1 Number of bytes remaining in the input buffer 
43 3 Reserved by the system 
46 1 Device number 
0,1 Diskette drives А: and В: 
248 LPT3 
249 LPT2 
250 COM2 
251 COMI 
253 LPII 
254 SCN: 
255 KYBD: 
252  COM3: 
47 1 Output width 
48 1 Location of the pointer in the buffer for PRINT* 
49 1 Used by GWBASIC for LOAD and SAVE operations 
SO 1 Output location to be used for TAB extension 
91 128 Physical data buffer to be used for data transfer 
between DOS and GWBASIC. This can also be used for a 
data test in sequential access. 

179 2 The size of a variable-length record. The default value 
is 128 bytes. The value of record length in OPEN 
command is set. 

181 2 Current physical record number 

183 2 Current logical record number 

185 1 Reserved by the system 

186 2 Location of the input/output pointer for PRINT#, INPUT*, 


and WRITE#. This is used only for a disk file. 

188 n Field buffer. Size n is set by record length in OPEN 
command. This can be used to test data in the random 
access mode. 


Example 


100 X=USR(VARPTR(Y ) ) 
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VARPTR$ 


Syntax 


VARPTR$ (variable) 


Comments 


Returns the address of a variable in a character form. 


The address where variable data is stored is returned in 3-byte 
character format. Before executing VARPTR$, a value should be assigned 
to the specified variable. The address for the variable is given in 

the following format: 


Byte 0 Byte 1 Byte 2 
Type Low-order byte of High-order byte of 
variable address variable address 


The type, showing the type of variable name, is one of the following: 


Integer type 

Character type 
Single-precision real type 
Double-precision real type 


ok о м 


Туре value that VARPTR$ returns is the same as 
CHR$(type)+MKI$(VARPTR$(variable name) ) 

VARPTR$ is mainly used to indicate the variable name in the PLAY and 

DRAW statements. For example, if we specify the following by a PLAY 

statement: 


PLAY "XAS;" 


Although this may be used as it is, it can also be written by using the 
VARPTR$ Function: 


PLAY "X" + VARPTR$ (A$) 
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APPENDIX A 
GWBASIC DISK I/O 


Disk input/output (L/O) procedures for the beginning GWBASIC user are examined 

in this chapter. If you are new to GWBASIC or if you're receiving disk-related 
errors when running GWBASIC, read through these procedures and program examples 
to make sure you're using all the disk statements correctly. 


Wherever a filename is required in a disk command or statement, use a name that 
conforms to your operating system's requirements for filenames. The MS-DOS 
operating system appends the default extension .BAS to the filename given in a 
SAVE, RUN, MERGE, or LOAD command. 


PROGRAM FILE COMMANDS 


The following commands and statements are used in GWBASIC program file 
manipulation. 


SAVE 7/ /епале [,A] 


Writes to disk the program that is currently residing in memory. Option A 
writes the program as a series of ASCII characters. Otherwise, GWBASIC 
uses a compressed binary format. 


LOAD f£//ename [,R] 


Loads the program from disk into memory. LOAD always deletes the current 
contents of memory and closes all files before LOADing. The R option runs 
the program immediately. If R is included, however, open data files are 
kept open. Thus programs can be chained or loaded in sections and access 
the same data files. (LOAD filename,R and RUN filename,R are equivalent.) 


RUN £//ename [,R] 


Loads the program from disk into memory and runs it. RUN deletes the 
current contents of memory and closes all files before loading the 
program. If the R option is included, however, all open data files are 
kept open. (RUN filename,R and LOAD filename,R are equivalent.) 


MERGE f//ename 


Loads the program from disk into memory but does not delete the the current 
contents of memory. The program line numbers on disk are merged with the 
line numbers in memory. If two lines have the same number, only the line 
from the disk program is saved. After a MERGE command, the merged program 
resides in memory, and GWBASIC returns to command level. 


KILL #//ename 


Deletes the file from the disk. Filename may be a program file, a 
sequential or random access data file, or any other type of file. 


NAME o/d-fi/ename AS new-fi/ename 
To change the name of a disk file, execute the NAME statement. NAME may be 
used with any type of files. 

PROTECTED FILES 


If you wish to save a program in an encoded binary format, use the Protect (,P) 
option with the SAVE command. For example: 


SAVE "MYPROG",P 
A program saved this way cannot be listed or edited. You may also want to save 
an unprotected copy of the program for listing and editing purposes. 
DISK DATA FILES - SEQUENTIAL AND RANDOM I/O 
There are two types of disk data files that may be created and accessed by a 
GWBASIC program: sequential files and random access files. 
SEQUENTIAL FILES 
Sequential files are easier to create than random files, but are limited in 
flexibility and speed when it comes to accessing the data. The data written 
into a sequential file is a series of ASCII characters that are stored, one 


after another (sequentially), in the order they are sent. This data is read 
back out of the file in the same way. 
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The statements and functions that are used with sequential files are: 


OPEN PRINT# ІМРОТ# WRI TE# 
CLOSE PRINT# USING LINE INPUT# INPUTS 
EOF LOC LOF 


The following program steps are required to create a sequential file and access 
the data in the file: 


1. OPEN "О", #1, "DATA" 
Opens the file іп О mode. 
2. PRINT«1,A$;B$;CS$ 


Writes data to the file using the PRINT* statement. (WRITE# may be 
used instead.) 


3. CLOSE #1 
OPEN "1", #1, "DATA" 


To access the data in the file, you must CLOSE the file and reOPEN it 
in I mode. 


4. INPUT#1,X$,Y$,Z$ 


Use the INPUT# statement to read data from the sequential file into the 
program. 


5. CLOSE #1 


Close the file when done. 
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Program 1 -- Creating a Sequential Data File 


Program 1 creates a sequential file, DATA, from information you input at 
the terminal: 


10 OPEN "О", #1, "DATA" 

20 INPUT "МАМЕ" ; М 

25 IF N$="DONE" THEN CLOSE #1:END 
30 INPUT "DEPARTMENT" ; D$ 

40 INPUT "DATE HIRED"; H$ 

50 PRINT#1,N$;",";D$;",";H$ 

60 PRINT:GOTO 20 


NAME? MICKEY MOUSE 
DEPARTMENT? CARTOONS 
DATE HIRED? 01/12/72 


NAME? SHERLOCK HOLMES 
DEPARTMENT? RESEARCH 
DATE HIRED? 12/03/65 


NAME? EBENEEZER SCROOGE 
DEPARTMENT? ACCOUNT ING 

DATE HIRED? 04/27/78 

NAME? CLARK KENT 

DEPARTMENT? FLIGHT INSTRUCTION 
DATE HIRED? 08/16/78 


NAME? etc. 
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Program 2 -- Accessing a Sequential File 


Now look at Program 2. It accesses the file DATA that was created in 
Program 1 and displays the name of everyone hired in 1978: 


10 OPEN "1", #1, "DATA" 

20 INPUT#1,N$,D$,H$ 

30 IF RIGHT$(H$,2)="78" THEN PRINT N$ 
40 GOTO 20 

RUN 

EBENEEZER SCROOGE 

CLARK KENT 

Input past end in 20 

Ok 


Program 2 reads every item in the file, sequentially. When all the data 
has been read, line 20 causes ап Input past end error. To avoid getting 
this error, insert line 15 below, which uses the EOF function to test for 
end-of-file: 


15 IF EOF(1) THEN END 
and change line 40 toGOTO 15. 


A program that creates a sequential file can also write formatted data to 
the disk with the PRINT# USING statement. For example, the statement, 


PRINT#1,USING" ####.#4#,";A,B,C,D 

could be used to write numeric data to disk without explicit delimiters. 
The comma at the end of the format string serves to separate the items in 
the disk file. 
The LOC function, when used with a sequential file, returns the number of 
128 byte records that have been written to or read from the file since it 
was OPENed. 

Adding Data to a Sequential File 
If you have a sequential file residing on disk and later want to add more 


data to the end of it, you cannot simply open the file in O mode and 
destroy its current contents. Instead, you may open the file for APPEND. 
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RANDOM FILES 


Creating and accessing random files requires more program steps than sequential 
files, but there are advantages to using random files. One advantage is that 
random files require less room on the disk, because GWBASIC stores them in a 
packed binary format, as a series of ASCII characters. 


The biggest advantage to random files is that data can be accessed randomly 
(i.e., anywhere on the diks). It is not necessary to read through all the 
information, as with sequential files. This is possible because the 
information is stored and accessed in numbered units called records. 


The statements and functions that are used with random files are: 


OPEN FIELD LSET RSET 
PUT CLOSE LOC LOF 
MK 13 MKS$ МКО GET 
CVS CV | CVD 


Creating a Random File 
The following program steps are required to create a random file: 
L. OPEN "К?Т, "РСЕ", 82 


OPEN the file for random access (К mode). This example specifies a 
record length of 32 bytes. If the record length is omitted, the 
default is 128 bytes. 


2. FIELD #1,20 AS N$,4 AS A$, 8 AS P$ 


Use the FIELD statement to allocate space in the random buffer for 
the variables that are written to the random file. Note that in 
most cases the sum of the lengths of the variables should be equal 
to the record length, and in no case should it be greater than the 
record length. | 


3. LSET N$=X$ 
LSET A$=MKS$ (АМТ) 
RSET P$=TEL$ 
Use LSET or RSET to move the data into the random buffer. Numeric 
values must be made into strings when placed in the buffer. To do 
this, use the "make " functions: MKS$ for a single precision value, 
and MKD$ for a double precision value. 
4. PUT #1,CODE% 
Write the data from the buffer to the disk using the PUT statement. 
5. CLOSE #1 


Close the file when all desired information has been written. 
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Program 3 -- Creating a Random File 


Program 3 takes information that is input at the terminal and writes it to 
a random file. Each time the PUT statement is executed, a record is 
written to the file. Each record consists of a 20-character name, an 
amount which is a single precision number, and an 8-character phone 
number. The two-digit code that is input in line 30 becomes the record 
number. If 999 is entered, the program closes the file and ends. 


Note: По not use a FIELDed string variable in an INPUT or LET statement. 
This causes the pointer for that variable to point into string space 
instead of the random file buffer. 


10° OPEN ^R #1, FILE" „За 

20 FIELD #1,20 AS №, 4 AS A$, 8 AS P$ 
30 INPUT "2-DIGIT CODE (OR 999 TO END)";CODE% 
40 IF CODE%=999 THEN CLOSE #1:END 

50 INPUT "NAME"; X$ 

60 INPUT "AMOUNT"; AMT 

70 INPUT "PHONE"; TEL$:PRINT 

80 LSET N$=X$ 

90 LSET A$=MKS$ (АМТ) 

100 RSET P$-TELS$ 

110 PUT #1,CODE% 

120 GOTO 30 


Accessing a Random File 
The following program steps are required to access a random file: 
1: OPEN "КТ, FIEE".92 
OPEN the file in R mode. 
2. FIELD #1,20 AS №, 4 AS A$, 8 AS P$ 


Use the FIELD statement to allocate space in the random buffer for 
the variables that are read from the file. 


Note: In a program that performs both input and output on the same 
random file, you can often use just one OPEN statement and on FIELD 
statement. In this case, you do not need to close the file until 

all operations (input and output) on the file are done. 
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3. GET #1,CODE% 
The GET statement moves the desired record to the random buffer. 


4. PRINT N$ 
PRINT CVS(A$) 


The data in the buffer may now be accessed by the program. Numeric 
values must be converted back to numbers using the "convert" 
functions: CVI for integers, CVS for single precision values, and 

CVD for double precision values. 


5. CLOSE #1 


Close the file when done. 


Program 4 -- Accessing A Random File 


Program 4 accesses the random file FILE that was created in Program 3. By 
inputting the two-digit code at the terminal, the information associated 
with that code is read from the file and displayed: 


10 OPEN "В", #1, "FILE",32 

20 FIELD #1, 20 AS N$, 4 AS A$, 8 AS P$ 
30 INPUT "2-DIGIT CODE" ;CODE% 

40 GET #1, CODE% 

50 PRINT N$ 

60 PRINT USING "S$###.##";CVS(AS$) 

70 PRINT P$:PRINT 

80 GOTO 30 


The LOC function, with random files, returns the current record number. 
The current record number is one plus the last record number that was used 
in a GET or PUT statement. For example, the statement 


IF LOC(1)»50 THEN END 


ends the program execution, if the current record number in file *1 is 
higher than SO. 


Program 5 -- Inventory 


Program 5 is an inventory program that illustrates random file access. In 
this program, the record number is used as the part number, and it is 
assumed the inventory contains no more than 100 different part numbers. 
Lines 900-960 initialize the data file by writing CHR$(255) as the first 
character of each record. This is used later (line 270 and line 500) to 
determine whether an entry already exists for that part number. 


Lines 130-220 display the different inventory functions that the program 


performs. When you type in the desired function number, line 230 branches 
to the appropriate subroutine. 
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120 OPEN"R", #1, "INVEN.DAT", 39 

125 FIELD#1,1 AS F$,30 AS D$,2 AS Q$,2 AS R$,4 AS P$ 

130 PRINT:PRINT "FUNCTIONS: " : PRINT 

135 PRINT 1,"INITIALIZE FIELD" 

140 PRINT 2,"CREATE A NEW ENTRY" 

150 PRINT 3,"DISPLAY INVENTORY FOR ONE PART" 

160 PRINT 4,"ADD TO STOCK" 

170 PRINT 5,"SUBTRACT FROM STOCK" 

180 PRINT 6,"DISPLAY ALL ITEMS BELOW REORDER LEVEL" 

190 PRINT 7,"END" 

220 PRINT:PRINT: INPUT "FUNCTION" ; FUNCTION 

225 |F (FUNCTION«1) OR (FUNCTION»7) THEN PRINT 
"BAD FUNCTION NUMBER":GO TO 130 

230 ON FUNCTION GOSUB 900, 250, 390, 480, 560, 680 

235 IF FUNCTION=7 THEN CLOSE #1:END 

240 GOTO 220 

250 REM BUILD NEW ENTRY 

260 GOSUB 840 

270 IF ASC(F$)«»255 THEN INPUT "OVERWRITE";AS$: 
IF A$<>"Y" THEN RETURN 

280 LSET F$=CHR$ (0) 

290 INPUT "DESCRIPTION" ;DESCS 

300 LSET D$-DESCS 

310 INPUT "QUALITY IN STOCK"; Q% 

320 LSET Q$=MK I$ (Q9) 

330 INPUT "REORDER LEVEL" ;R% 

340 LSET R$=MK1$(R%) 

350 INPUT "UNIT PRICE";P 

360 LSET P$=MKS$(P) 

370 PUT#1,PART% 

380 RETURN 

390 REM DISPLAY ENTRY 

400 GOSUB 840 

410 IF ASC(F$)=255 THEN PRINT "NULL ENTRY" :RETURN 

420 PRINT USING "PART NUMBER ###" ;PART% 

430 PRINT D$ 

440 PRINT USING "QUANTITY ON HAND #####";CVI(Q$) 

450 PRINT USING "REORDER LEVEL #####";CVI (R$) 

460 PRINT USING "UNIT PRICE $$##.##";CVS(PS$) 

470 RETURN 

480 REM ADD TO STOCK 

490 GOSUB 840 

500 IF ASC(F$)=255 THEN PRINT "NULL ENTRY" RETURN 

510 PRINT D$:1NPUT "QUANTITY TO ADD "; АХ 

520 Q%=CV І (Q$)+A% 

530 LSET Q$=MK1$(Q%) 

540 PUT #1,PART% 

550 RETURN 

560 REM SUBTRACT FROM STOCK 

570 GOSUB 840 

580 IF ASC(F$)=255 THEN PRINT "NULL ENTRY" : RETURN 

590 PRINT D$ 

600 INPUT "QUANTITY TO SUBTRACT" ; S% 

610 Q%=CV | (Q9) 
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620 IF (Q%-S%)<O THEN PRINT "ONLY" ;Q%; 
" IN STOCK" : ОТО 600 

630 Qh=Q%-S% 

640 IF Q%=<CVI(R$) THEN PRINT "QUANTITY NOW" ; Q%; 
"REORDER LEVEL" ; СМІ (R$) 

650 LSET Q$-MKIS$(Qx) 

660 PUT#1,PART% 

670 RETURN 

680 DISPLAY ITEMS BELOW REORDER LEVEL 

690 FOR 1=1 TO 100 

710 GET«1, | 

720 IF ASC(F$)=O THEN IF CVI (9%) < (АФ) THEN 
PRINT D$;" QUANTITY";CVI(Q$) TAB(50) 
"REORDER LEVEL" ; CVI (R$) 

730 NEXT | 

740 RETURN 

840 INPUT "PART NUMBER" ;PART% 

850 IF(PART%<1) OR (PART%>100) THEN 
PRINT "BAD PART NUMBER":GOTO 840 ELSE 
GET#1,PART%:RETURN 

900 REM INITIALIZE FILE 

910 INPUT "ARE YOU SURE";B$:1F B$«»"Y" THEN RETURN 

920 LSET F$=CHR$(255) 

930 FOR 1=1 TO 100 

940 PUT#1, | 

950 NEXT | 

960 RETURN 
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APPENDIX B 
COMMUNICATIONS 


In this appendix, the GWBASIC statements necessary to implement communication 
through the RS-232C interface are described. 


1 


Communication file 


The communication file is opened by OPEN COM and the input/output buffer is 
allocated to it. It is closed by CLOSE. 


Communication I/O unit 


A communication unit is opened like a file. All input/output statements 
that are valid for disk files are valid for communications. Sequential 


input statements are the same for disk files and communications. These 
are: 


INPUT4 #//e number 
LINE INPUT# f//e number 
INPUTS$ 


The communication sequential output statements are also the same for disk 
files. These are: 


PRINT# f/i le number 


PRINT# #//е number USING 
WRITE# £//e number 


GET and PUT statements communication 


GET and PUT statements are different for communications files and disk 
files. They are used for fixed-length records I/O to and from the 
communication file. Instead of specifying the record number to be read or 
written, you specify the number of bytes to be transmitted to or received 


from the file buffer. The value should not exceed the LEN option for the 
OPEN COM statement. 


4. ЏО function 


Difficulties with asynchronous communication occur when processing is 
performed at "character" speed. At high baud rates (1200 and up), it is 
often necessary to suspend character transmission from another computer to 
prevent the data buffer from overflowing. This can often be done by 
sending XOFF (CHR$(19)) to the remote computer, and ХОМ CHR$(17) ) when 
ready to start transmission again. XOFF tells the remote computer to stop 
sending. XON tells it to restart transmission. 


Note: Other codes may be used if they do not overlap with data. This 


depends on the protocol you are using to communicate with the remote 
system. 


GWBASIC provides three types of functions to detect the correct input 
conditions: 


LOC(x) 


Number of characters in the input buffer to be read. If it is greater 
than 255, 25S is returned. 


LOF(x) 


Returns the number of characters free in the input buffer. This value 
is equal to n-LOC(x). n is the size of the communication buffer set by 
the GWBASIC command /C: option. The default for n is 256. 


EOF (x ) 


Is true (-1) if characters are in the input buffer, false (0) if the 
buffer is empty. 


Note: If a read is attempted when the input buffer is full, or O is 


returned by LOF (file number), a Communication buffer overflow error 
occurs. 


S. INPUT$ function 


When reading communication files, INPUT$ is more convenient than INPUT* and 
LINE INPUT* statements. With communication, all the ASCII characters are 
valid. The INPUT* statement terminates when a comma or carriage return is 
encountered. The LINE INPUT* statement terminates when a carriage return 
is found. 
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With INPUTS, all characters are assigned to strings. |INPUT$(x,#y) means 


that x characters are returned from file #y. the following statements are 
most efficient for reading a communication file: 


10 WHILE NOT EOF (1) 

20 B$=INPUT$(LOC(1), #1) 

| (Data in B$ is processed.) 
100 WEND 


This subprogram returns the characters in the communication buffer into 

B$. The middle statements process them as strings. If there are more than 
255 characters, the first 255 characters in the buffer are processed at one 
time. This prevents String overflow errors from occurring. 


Device Errors 


An I/O error will sometimes be generated upon opening of the COM file or 
when the first input is done. If this occurs in a program, the ON ERROR 
GOTO statement should be used to trap the error and retry the operation. 
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APPENDIX C 
GWBASIC ASSEMBLY LANGUAGE SUBROUTINES 


GWBASIC has provisions for interfacing with assembly language subroutines via 
the USR function and the CALL statement. 


The USR function allows assembly language subroutines to be called in the same 
way GWBASIC intrinsic functions are called. However, the CALL statement is the 
recommended way of interfacing 8086 machine language programs with GWBASIC. It 
is compatible with more languages than is the USR function call, it produces 

more readable source code, and it can pass multiple arguments. 


MEMORY ALLOCATION 


Note: Memory space must be set aside for an assembly language subroutine 

before it can be loaded. During initialization, enter the highest memory 

location minus the amount of memory location minus the amount of memory needed 
for the assembly language subroutine(s) with the /M: switch. 


In addition to the GWBASIC interpreter code area, GWBASIC uses up to 64K of 
memory beginning at its data segment (DS). 


If, when an assembly language subroutine is called, more stack space is needed, 
GWBASIC’s stack can be saved and a new stack set up for use by the assembly 
language subroutine. GWBASIC’s stack must be restored, before returning from 

the subroutine. 


The assembly language subroutine may be loaded into memory by means of the 
Operating system or the GWBASIC POKE statement. 
The CALL Statement 
As mentioned earlier, the CALL statement is the recommended way of 
interfacing machine language programs with GWBASIC. It is further 


suggested that the old style user-call USR(n) not be used. The syntax is: 


CALL variable name [( argument list )] 


Variable name contains the segment offset that is the starting point in memory 
of the subroutine being CALLed. 


Argument list contains the variables or constants, separated by commas, that 
are to be passed to the routine. 


Invoking the CALL statement caused the following to occur: 


1. For each parameter in the argument list, the 2 byte offset of the 
parameter’s location within the data segment (DS) is pushed onto the 
stack. 


2. GWBASIC’s return address code segment (CS), and offset (IP) are pushed 
onto the stack. 


3. Control is transferred to the user’s routine using the segment address 
given in the last DEF SEG statement and the offset given in variable 
name. 


These actions are illustrated by the two following diagrams. Figure C-1 
illustrates the state of the stack at the time of the CALL statement. 
Figure C-2 illustrates the condition of the stack during execution of the 
CALLed subroutine. 


high parameter 0 
addresses 


parameter | 


Each parameter is a 2-byte 
POINTER into memory 





C 
S о 
| u 
a n 
с t parameter n 
k е 

f return segment address 

return offset 
Stack pointer 
low (SP reg. contents) 
addresses 


Figure C-1 Stack Layout when CALL Statement Is Activated 


The user’s routine now has control. Parameters may be referenced by moving 
the stack pointer (SP) to the base pointer (BP) and adding a positive 
offset to (BP). 
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high parameter 0 
addresses 


parameter | 


Absent if any parameter is referenced 
within a nested procedure 





parameter n 


return segment address Absent in local procedure 


C 
5 e return offset . 
К в Stack pointer 
» t old stack marker (SP reg. contents) 
k e New stack marker 
Г local variables 
Only in reentrant procedure 
This space may be used 
during procedure 
execution 
Stack pointer may change 
during procedure execution 
low 
addresses 





Figure C-2 Stack Layout during Execution of a CALL Statement 
You must observe the following rules when coding a subroutine: 


1. The CALLed routine may destroy the AX, BX, CX, DX, SI, DI, and BP 
registers. 


2. The CALLed program MUST know the number and length of the parameters 
passed. References to parameters are positive offsets added to (BP) 
(assuming the called routine moved the current stack pointer into BP; 
i.e., MOV BP,SP). That is, the location of pl is at 8(BP), p2 is at 
6(BP), p3 is at 4(BP), and so on. 


3. The CALLed routine must do a RET n (where n is two times the number of 
parameters in the argument list) to adjust the stack to the start of 
the calling sequence. 


4. Values are returned to GWBASIC by including in the argument list the 
variable name that receives the result. 
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5. If the argument is a string, the parameter’s offset points to 3 bytes 
called the string descriptor. 


Byte O of the string descriptor contains the length of the string (О to 
255) Bytes 1 and 2, respectively, are the lower and upper 8 bits of the 
string starting address in string space. 


Note: If the argument is a string constant in the program, the string 

descriptor points to program text. Be careful not to alter or destroy 

you program this way. To avoid unpredictable results, add +"" to the 
string constant in the program. For example: 


20 A$ = "GWBASIC"+"" 


This forces the string constant to be copied into string space. Now 
the string may be modified without affecting the program. 


6. Strings may be altered by user routines, but the length must not be 
changed. GWBASIC cannot correctly manipulate strings if their lengths 
are modified by external routines. 


Examples 


100 DEF SEG=&H8000 
110 F2&H7FA 
120 CALL F(A,B$,C) 


Line 100 sets the segment to 8000 Hex. The value of variable F is 
added into the address as the low word after the DEF SEG value is left 
shifted 8 bits. (This is a function of the microprocessor, not of 
GWBASIC.) Here, F is set to &H7FA, so that the call to F executes the 
subroutine at location 8000:7FA Hex (absolute address 807FA Hex). 


The following sequence of assembly language demonstrates success of the 
parameters passed and storing a return result in the variable С. 


MOV BP,SP ;Get current stack position in BP. 
MOV BX,6[BP] ;Get address of B$ information. 
MOV CL, [BX] ;Get length of B$ in CL. 


MOV DX, 1[BX] ;Get address of B$ text in DX. 


MOV SI,8[BP] ;Get address of 'A' in SI. 
MOV DI,4[BP] ;Get pointer to 'C' in DI. 
MOVS WORD ;Store variable 'A' in 'C'. 
RET 6 ;Restore stack, return. 
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Note: The called program must know the variable type for numeric 
parameters passed. In the above example, the instruction 


MOVS WORD 


copies only 2 bytes. This is fine if variables A and C are integer. 
GWBASIC would have to copy 4 bytes if they were single precision and 
copy 8 bytes if they were double precision. 


USR FUNCTION CALLS 


Although the CALL statement is the recommended way of calling assembly language 
subroutines, the USR function call is still available for compatibility with 
previously-written programs. 


The syntax of the USR function call is: 
USR[ digit ][C argument )] 


Digit is from 0 to 9. Digit specifies the USR routine being called (see DEF 
USR). If digit is omitted, USRO is assumed. 


Argument is any numeric or string expression, enclosed in parentheses. 
Arguments are discussed in detail below. 


A DEF SEG statement MUST be executed prior to USR call to assure that the code 
segment points to the subroutine being called. The segment address given in 


the DEF SEG statement determines the starting segment of the subroutine. (See 
Chapter 2, DEF SEG.) 


For each USR function, a corresponding DEF USR statement must have been 
executed to define the USR call offset. This offset and the currently active 
DEF SEG address determine the starting address of the subroutine. 


When the USR function call is made, register AL contains a value which 


specifies the type of argument that was given. The value in AL may be one of 
the following: 


2 Two-byte integer (two's complement) 
3 String 

4 Single precision floating point number 
8 Double precision floating point number 


If the argument is a number, the BX register points to the 8-byte long Floating 
Point Accumulator (FAC) area where the argument is stored. 
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If the argument is an integer: 
РАС-2 Contains the upper 8 bits of the argument. 
FAC-3 Contains the lower 8 bits of the argument. 
If the argument is not an integer: 


FAC Contains the exponent minus 128, and the binary point is to the 
left of the most significant bit of the mantissa. 


РАС- 1 Contains the highest 7 bits of mantissa with leading 1 
suppressed (implied). Bit 7 is the sign of the number 
(O-positive, 1=negative). 
If the argument is a single precision floating point number: 
FAC-2 Contains the middle 8 bits of mantissa. 
FAC-3 Contains the lowest 8 bits of mantissa. 
If the argument is a double precision floating point number: 
FAC-7 Contain four more bytes of mantissa. 
FAC-4 Contains the lowest 8 bits. 
If the argument is a string, the DX register points to 3 bytes called the 
string descriptor. Byte O of the string descriptor contains the length of the 
string (0 to 255). Bytes 1 and 2, respectively, are the lower and upper 8 bits 
of the string starting address in GWBASIC's Data Segment. 
Note: If the argument is a string constant in the program, the string 
descriptor points to program text. Be careful not to alter or destroy your 
program this way. See the CALL statement above. Usually, the value returned 


by a USR function is the same type (integer, string, single precision, or 
double precision) as the argument that was passed to it. 


Examples 
110 DEF USRO=&H8000 ‘Assumes user gave /M:32767 
120 X=5 ‘Note that X is single precision 


130 Y = USRO(X) 
140 PRINT Y 


The type (numeric or string) of the variable receiving the function 

call must be consistent with the argument passed. Alternatively, it 
may be set to integer by calling FRCINT, a routine contained in 
GWBASIC, to set the BX register to the integer equivalent of the 
argument and then calling another routine, MAKINT, to pass the value in 
the BX register back to GWBASIC. 
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The following sample assembly language routine simply multiplies the 
argument passed by 2 and returns an integer result. Always be sure that 
your programs are defined by a PROC FAR statement. 


DOUBLE SEGMENT 


ASSUME CS : DOUBLE 
FRCINTOFFSET EQU 103H 
MAK | NTOFFSET EQU 107H 
FRCINT LABEL DWORD 
DW FRCINTOFFSET 
FRCSEG DW ? 
MAK INT LABEL DWORD 
DW MAK I NOFFSET 
MAKSEG DW ? 
USRPRG PROC FAR 
POP S| 
POP AX ;Recover GWBASIC's CS 
PUSH AX 
PUSH SI 
MOV FRCSEG,AX ;Set segment for long 
;indirect CALL 
MOV MAKSEG, AX 
CALL FRCINT :гогсе arg in FAC to int 
;in BX 
ADD BX,BX ;BX = BX * 2 
CALL MAK I NT ;Put Result back in FAC 
RET ;Long return to GWBASIC 
USRPRG ENDP 
DOUBLE END 


When FRCINT or MAKINT is called, and when the subroutine terminates with a 
return, ES, DS, and SS must have the same value they had when the 
subroutine was entered. These registers point to GWBASIC’s Data Segment. 


Appendix C: Assembly Language Subroutines /C-7 


APPENDIX D 
EXAMPLE OF EXECUTION 


START GWBASIC 


A>BAS IC 


GW-BASIC 3.11 


(C) Copyright Microsoft 1983,1984, 1985 


Compatibility Software GW-BASIC УЗ. 11 


When the MS-DOS prompt appears, type 
basic and press RETURN. 


The start message and the number of 
free bytes is displayed and GWBASIC 
starts. 


Copyright (c) 1984, 1985 by Phoenix Software Associates Ltd. 
INCLUDES SUPPORT FOR EXTENDED VIDEO MODES 


VERSION 1.0 01-27-86 


61955 Bytes free 
Ok 


10 PRINT"*** START ***" 


ZU. PRINT Е deel T. 9 330p У" 


30 FOR 1=1 TO 10 

AQ PRINT. LEER. S 

50 PRINT "*** END Tee 
6Q END 


kk k START kkk 


? | + |+| * 


FOR Without NEXT in 30 


45 NEXT | 
RENUM 
Ok 


е {хі * 


Ok indicates command level of 
GWBASIC. 


Make source program. 


Execute program in interpreter mode. 
The current program starts. 


Error message. 
Return to command level, awaiting 
correction of error. 


Add line number 45 and renumber 
lines with RENUM command. 


LIST Display revised program with 
10 iPRINT**** START. #7 LIST command. 

29. PRINTE |" еее EI * 

30 FOR 1=1 ТО 10 

40. PRINT ty 141,0%1 


50 NEXT | 
BD -PRINT "SFE END **e*^ 
/O END 
Ok 
RUN Execute in interpreter mode. 
Жжжж START Жжж 
7 *oxep s * gx] * 

1 2 1 

2 4 4 

3 6 9 

4 8 16 

5 10 25 

6 12 36 

7 14 49 

8 16 64 

9 18 81 

10 20 100 
Жжжж ЕМО ЖЖЖ 
Ok 
SAVE "TEST" Save program as filename TEST.BAS. 
Ok 
FILES* TEST .BAS” Check with FILES command. 
TEST .BAS 
Ok 
SYSTEM Return to MS-DOS with 

system command. 
A»DIR TEST.BAS Check with DIR command. 
TEST BAS 128 1-01-80 12:17a 
1 File(s) 

A>CHKDSK Check status of use of 


disk with CHKDSK command. 
362496 bytes total disk space 
25600 bytes in 3 hidden files 
87040 bytes in 16 user files 
249856 bytes available on disk 


262144 bytes total memory 
236776 bytes free 
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A>basic 


GW-BASIC 3.11 
(C) Copyright Microsoft 1983, 1984, 1985 


Compatibility Software GW-BASIC УЗ.11 


Start GWBASIC. 


The start message and the number of 
free bytes is displayed and GWBASIC 
starts again. 


Copyright (c) 1984, 1985 by Phoenix Software Associates Ltd. 
INCLUDES SUPPORT FOR EXTENDED VIDEO MODES 


VERSION 1.0: 07-27-86 


61955 Bytes free 
Ok 


LOAD" TEST" 
Ok 


10: PRINT *** START 72?" 

20: PRINT = ТО E quote Ix аы 
30 FOR 1=1 TO 10 

40 PRINT l,lI-41l,1*I 

50 NEXT | 

DU. PRINT тте END ees" 

7/0 END 


EDIT 30 
30 FOR 1=1 TO 10 


30 FOR 1=1 TO 20 
Ok 


JO. PRINT ATE STAR) eee 

20. PRIN фото ет Дер ea qup m 
30 FOR 1=1 TO 20 

40 PRINT l,1-41,1*1 

50 NEXT | 

DU- “PRINT РЕР END Set 

/0 END 


Ok indicates return to command level. 
Load TEST.BAS file 


Display program with 
LIST command. 


Revise line number 30 
with EDIT command. 


Type 20 to replace 10 and 
press RETURN. 


Display revised program 
with LIST command. 
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RUN 
#** START ### 
* 


* | * | + | * 
1 2 
2 4 
3 6 
4 8 
Э 10 
6 12 
7 14 
8 16 
9 18 
10 20 
11 22 
12 24 
13 26 
14 28 
15 30 
16 32 
17 34 
18 36 
19 38 
20 40 

Жжжж ЕМО *+жж 

Ok 

SAVE" TEST" 

Ok 

FILES" TEST .BAS" 

TEST .BAS 

Ok 

RESET 

Ok 

SYSTEM 
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Execute program in 
interpreter mode. 


Save program as TEST.BAS. This 
overwrites the previously saved file. 


Check with FILES command. 


Rewrite directory information 
information on disk using 
RESET command. 


Exit to MS-DOS. 


APPENDIX E 
CONVERTING PROGRAMS TO LEADING EDGE GWBASIC 


If you have a program which was originally written in another version of 
GWBASIC, some minor adjustments may be necessary before running them with this 
version. Here are some specific things to look for when converting to this 
version of the GWBASIC program. 


STRING DIMENSION 


Delete all statements that are used to declare the length of strings. A 
statement such as DIM A$(1,J) , which dimensions a string array for J elements 
of length I, should be converted to this GWBASIC statement: 


DIM A$(J) 


Some versions of BASIC use a comma or ampersand (&) for string concatenation. 
Each of these must be changed to a plus sign (+), which is the operator for 
GWBASIC string concatenation. 


In Leading Edge GWBASIC, the MID$, RIGHT$, and LEFT$ functions are used to take 
substrings of strings. Forms such as А$(1) to access the Ith character in A$, 


or A$(I,J) to take a substring of A$ from position I to position J, must be 
changed as follows: 


Other BASIC Leading Edge GWBASIC 
X$=A$ (I ) X$=MID$ (A$, 1, 1) 
X$=A$(1, J) X$=MID$(A$, I, J-1+1) 


Table E-1 Conversion of Substring References I 


If the substring reference is on the left side of an assignment and X$ is used 
to replace characters in A$, convert as follows: 


Other BASIC Leading Edge GWBASIC 
A$(1)=X$ MID$ (A$, 1, 1)=X$ 
A$(1,J)=X$ MID$(A$, 1, J-1+1)=X$ 


Table E-2 Conversion of Substring References II 


MULTIPLE ASSIGNMENTS 
Some versions of BASIC allow statements of the form: 
10 LET B=C=0 
to set B and C equal to 0. Leading Edge GWBASIC interprets the second equal 


Sign as a logical operator and set В equal to -1 if С equaled 0. Instead, 
convert this statement to two assignment statements: 


10 C=0:B=0 


MULTIPLE STATEMENTS 


Some versions of BASIC use a backslash (\) to separate multiple statements on a 
line. With Leading Edge GWBASIC, multiple statements must be separated by a 
colon (:). 


MAT FUNCTIONS 


Programs using the MAT functions to do matrix operations in some versions of 
BASIC must be rewritten using FOR...NEXT loops to execute properly. 
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APPENDIX F 
SUMMARY OF ERROR CODES AND ERROR MESSAGES 


Number Message 


1 NEXT without FOR 
A variable in a NEXT statement does not correspond to any previous 
executed, unmatched FOR statement variable. 


Adpst the program to match a FOR with a NEXT. 


2 Syntax error 
A line is encountered that contains some incorrect sequence of 
characters (such as unmatched parentheses, misspelled command or 
statement, incorrect punctuation, etc.) 


Correct the line in error. 


3 RETURN without GOSUB 
A RETURN statement is encountered for which there is no previous, 
unmatched GOSUB statement. 


Correct the program by adding a STOP or END statement to keep the 
computer from executing the subroutine portion of the program. 


4 Out of data 
A READ statement is executed when there are no DATA statements with 
unread data remaining in the program. 


Refer to the section of this guide that covers the function found 
on that line of the program and correct the program. 


Number Message 


5 Illegal function call 
A parameter that is out of range is passed to a math or string 
function. This error may also occur as the result of: 


negative or unreasonably large subscript 

negative or zero argument with LOG 

negative argument to SQR 

negative mantissa with a non-integer exponent 

call to a USR function for which the starting address has 
not yet been given 

an improper argument to MID$, LEFT$, RIGHT$, INP, OUT, WAIT, 
PEEK, POKE, TAB, SPC, STRING$, SPACES, INSTR, or ON...GOTO. 


O O O O Ọ 
S&S © & & вр 


o 


6 Over f low 
The result of a calculation is too large to be represented in 
GWBASIC’s number format. If underflow occurs, the result is zero 
and execution continues without an error. 


Use smaller numbers, or change to single or double precision 
variables. 


7 Out of memory 
A program is too large, has too many FOR loops or GOSUBS, too many 
variables, or expressions that are too complicated. 


At the beginning of your program, use CLEAR to set aside more 
memory or stack space. 


8 Undefined line 
A line reference in a GOTO, GOSUB, IF...THEN...ELSE or DELETE is to 
a nonexistent line. 


Check your line numbers and correct the program. 


9 Subscript out of range 
An array element is referenced either with a subscript that is 
outside the dimension of the array, or with the wrong number. 


Check how your array variables are used. 


10 Duplicate definition 
Two DIM statements are given for the same array, or a DIM statement 
is given for an array after the default dimension of 10 has been 
established for that array. 


Correct the program to only define each array once, or use the 


OPTION BASE statement before you encounter your arrays in the 
program. 
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Number Message 


11 Division by zero 
A division by zero is encountered in an expression, or the 
operation of involution results in zero being raised to a negative 
power. Machine infinity with the sign of the numerator is supplied 
as the result of the division, or positive machine infinity is 
supplied as the result of the involution, and execution continues. 


The program continues to run after this error is encountered. You 
need not do anything to correct this problem. 


12 Illegal direct 


A statement that is illegal in direct mode is entered as a direct 
mode command. 


Enter that statement only a part of a program. 


13 Type mismatch 
A string variable name is assigned a numeric value or vice verse; a 


function that expects a numeric argument is given a string argument 
or vice versa. 


Check your variables and correct this problem. 


14 Out of string space 
String variables have caused GWBASIC to exceed the amount of free 
memory remaining. GWBASIC allocates string space dynamically, 
until it runs out of memory. 

19 String too long 
An attempt is made to create a string more than 255 characters 
long. 
Make smaller strings. 


16 String formula too complex 
A string expression is too long or too complex. 


The expression should be broken into smaller expressions. 


17 Can't continue 
An attempt is made to continue a program that; 


1. has halted due to an error, 

2. has been modified during a bread in execution, or 

3. does not exist. 

If the program is loaded into memory, use the RUN command to start 


It, 
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Number Message 


18 


19 


20 


21 


22 


23 


24 


25 


26 


Undefined user function 
A USR function is called before the function definition (DEF FN 
statement) is given. 


Use DEF FN before the function is encountered in the program. 


No RESUME 
An error trapping routine is entered but contains no RESUME 
statement. 


Include RESUME in the error trapping routine. 


RESUME without error 
A RESUME statement is encountered before an error trapping routine 
is entered. 


Include a STOP or END statement before the subroutines section of 
your program is reached. 


Unprintable error 
An error message is not available for the error condition which 
exists. This is usually caused by an ERROR with an undefined error 
code. 


Missing operand 
An expression contains an operator with no operand following it. 


Make sure your expression is complete. 


Line buffer overflow 
An attempt is made to input a line that has too many characters. 


Use more than one line for multiple statements and use string 
variables in place of constants, if appropriate. 


Device Time-out 
GWBASIC program cannot get data or ready signal in regular time 
from device. 


Retry the operation. 


Device Fault 
Hardware (printer, disk, etc.) is out of order. 


Check your device and retry. 


FOR without NEXT 
A FOR was encountered without a matching NEXT. 


Correct your program. 


F-4 /Appendix F: Error Messages 


Number Message 


27 


29 


30 


51 


52 


53 


54 


Out of paper 
Printer is in unusual condition of paper empty, no power, or no 
connection. 


Check your printer and retry. 


WHILE without WEND 
A WHILE statement does not have a matching WEND. 


Correct your program. 


WEND without WHILE 
A WEND was encountered without a matching WHILE. 


Correct your program. 


Field overflow 
A FIELD statement is attempting to allocate more bytes than were 
specified for the record length of a random file. 


Check that the OPEN and FIELD statements match up. 


Internal error 
An internal malfunction has occurred in GWBASIC. 


Recopy your disk. If the problem persists, report to your computer 
dealer the conditions that caused this message to appear. 


Bad file number 
A statement or command references a file with a file number that is 
not OPEN or is out of the range of file numbers specified at 
initialization. 
Check that the file you want is open and that you've assigned the 


correct file number, and that you have a valid file specification. 


File not found 
A LOAD, KILL, or OPEN statement reference a file that does not 
exist on the current disk. 


Check your disk and file specifier, then retry the operation. 

Bad file mode 
An attempt is made to use PUT, GET or LOF with a sequential file, 
to LOAD a random file or to execute an OPEN with a file mod other 
than 1, O, or R- 


Is the OPEN statement included and proper? PUT and GET statements 
require a random file. 
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Number Message 


55 


57 


61 


62 


63 


File already open 
A sequential output mode OPEN is issued for a file that is already 
open or a KILL is given for a file that is open. 


Make sure you use only one OPEN for each file. A file must be 
closed before it can be KILLED. 


Device 1/0 error 
An I/O error occurred on a disk I/O operation. It is a fatal 
error, i.e., the operating system cannot recover from the error. 
Restart your computer. 

File already exists 
The filename specified in a NAME statement is identical to a 
filename already in use on the disk. 


Use a different name and retry this operation. 


Disk full 
All disk storage is in use. 


Erase any unneeded files on the active disk or use a new diskette. 
Input past end 

An INPUT statement is executed after all the data in the file has 

been INPUT, or for a null (empty) file. 

Use the EOF function to detect the end of the file. 


Bad record number 


In a PUT or GET statement, the record number is either greater than 


the maximum allowed (32767) or equal to zero. 
Correct your program. 


Bad file name 
An illegal form is used for the filename with LOAD, SAVE, KILL, or 
OPEN (e.g., a filename with too many characters). 


Correct your file specification and try again. 

Direct statement in file 
A direct statement is encountered while LOADing an ASCII-format 
file. The LOAD is terminated. 


Correct your program. Each statement must have a related line 
number. 
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Number Message 


67 


69 


70 


71 


72 


74 


Too many files 


An attempt is made to create a new file (using SAVE or OPEN) when 
all 255 directory entries are full. 


Use a new disk and try again. 


Device unavailable 


An attempt was made is open the file for an unavailable device or 
the specified I/O device is unavailable. 


Check to be sure the device is properly installed. 
Communication buffer overflow 


The data transmitted from the communication port overflowed in the 
input buffer. 


Correct your program to use an ON ERROR statement and review the 
possible causes of this problem for a solution. 


1, Increase the size of your communications buffer with the 
/C: option. 


ds Use another protocol between the machines. 
S» Send and receive at a slower rate. 


Disk write protect 
An attempt was made to write data to a write protected diskette. 


Check your diskette. If you want to write onto this diskette, 
remove the write protect tab. 


Disk not ready 
The disk drive door is open or the drive is empty. 


Correct the situation and retry. 


Disk medium error 
An abnormal condition occurred on the disk drive or diskette. 
Usually, this is caused by scratches on the diskette. 


Copy your files to a new diskette. Reformat the disk producing 
this error. If formatting fails, discard the disk. 


Rename across disks 


An attempt was made to rename a file that was declared to be on a 
disk other than the disk specified for the old name. The renaming 
Operation is not performed. 
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Number Message 


75 


76 


Path/file access error 
During an OPEN, MKDIR, CHDIR, or RMDIR operation, MS-DOS was unable 
to make a correct Path to File name connection. The operation is 
not completed. 


Path not found 
During an OPEN, MKDIR, CHDIR, or RMDIR operation, MS-DOS was unable 
to find the path specified. The operation is not completed. 


Can't continue after SHELL 
Upon returning from a child process, the SHELL statement finds 
insufficient memory to continue. GWBASIC closes all open files and 
exits to MS-DOS. 


You cannot SHELL to BASIC 
During initialization, GWBASIC discovers that it is being run as a 
child task. GWBASIC terminates and returns control to the parent 
copy of GWBASIC. 
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APPENDIX G 
MATHEMATICAL FUNCTIONS 


DERIVED FUNCTIONS 


Functions that are not intrinsic to GWBASIC may be calculated as follows. 


Function 


SECANT 
COSECANT 
COTANGENT 
INVERSE SINE 
INVERSE COSINE 
INVERSE SECANT 


INVERSE COSECANT 


INVERSE COTANGENT 
HYPERBOLIC SINE 

HYPERBOL | С COS INE 
НУРЕКВО ІС TANGENT 
HYPERBOLIC ЗЕСАМТ 
HYPERBOL ІС COSECANT 
HYPERBOL ІС COTANGENT 
INVERSE HYPERBOL IC SINE 
INVERSE HYPERBOL IC COSINE 
INVERSE HYPERBOLIC TANGENT 
INVERSE HYPERBOL ІС SECANT 
INVERSE HYPERBOLIC COSECANT 
INVERSE HYPERBOL ІС COTANGENT 


GWBASIC Equivalent 


SEC(X)-21/COS(X) 
CSC(X)=1/SIN(X) 
COT (X)=1/TAN(X) 
ARCS IN(X)=ATN(X/SQR (—X*X+1) ) 
ARCCOS (X) =ATN(X/SQR (—X*X+1) )+1.5708 
ARCSEC (X)=ATN(X/SQR (X*X+1) ) 
+SGN (SGN(X)-1) *1.5708 
ARCCSC(X) -ATN(X/SQR(X*X-1) ) 
*(SGN(X)-1)*1.5708 
ARCCOT (X) -ATN(X) +1 .5708 
SINH(X) - (EXP(X) -EXP(-X) ) /2 
COSH(X) - (EXP (X) +ЕХР(-Х)) /2 
TANH(X) -EXP ( CX) /EXP (X) XEXP ( -X) *2+1 
SECH(X)-2/ (EXP (X) XEXP(-X) ) 
CSCH(X) -2/ (EXP (X) -—EXP (-X) 
COTH(X) -EXP (-X) /EXP (X) -EXP (-X) *2+1 
ARCS I NH (X)=LOG(X+SQR (X*X+1) ) 
ARCCOSH (X) =LOG(X+SQR (X*X-1) 
ARCTANH (X)=LOG(1+X) / (1-X) ) /2 
ARCSECH(X) -LOG( (508 (—X*X+1)+1) /X) 
ARCCSCH(X) -LOG( (SGN(X) *SQR (X*X+1)+1) / X) 
ARCCOTH(X) -LOG( (X1) / (X-1)) /2 


APPENDIX Н 
ASCII Character Codes 


ASCII codes have special meanings in GWBASIC. They are listed in Table H-1 
below: 


Decimal Hex Meaning in GWBASIC 2.11 


007 07 beep 

009 09 tab 

010 ОА line feed 
011 OB home 

012 ОС form feed 
028 1C cursor right 
029 1D cursor left 
030 1E cursor up 
031 1F cursor down 


Table H-1 Special ASCII Codes in GWBASIC 


ASCII CODES 


Table H-2 lists the ASCII codes (in decimal format with the corresponding ASCII 
character). These characters are printable by using the CHR$(x) function, 
where x is the decimal ASCII code. 











Control ASCII ASCII ASCII 








Character character | value Character | value Character | value Character 
032 (space) (а 
033 p A a 
034 " B b 
035 # С e 
036 $ D d 
037 % E e 
038 & Е f 
039 G g 
040 ( H h 
041 ) I i 
(line feed) 042 J j 
011 (home) VT 043 + K k 
012 (form feed) ЕР 044 L | 
013 (carriage return) CR 045 M m 
014 J3 SO 046 . N n 
015 xt SI 047 / O о 
016 СЯ DLE 048 0 P р 
017 Б DCI 049 1 Q q 
018 ( DC2 050 2 R г 
019 ! DC3 051 3 S S 
020 T DC4 052 4 T t 
021 $ NAK 053 5 U и 
022 — SYN 054 6 V v 
023 X ETB 055 7 W w 
024 1 САМ 056 8 X x 
025 | ЕМ 057 9 Y y 
026 — SUB 058 : 2 2 
027 -- ESC 059 з [ { 
028 (cursor right) FS 060 < S 
029 (cursor left) GS 061 - ) | 
(cursor up) 062 > А - 
(cursor down) 063 ? = C3 


value Character value Character value Character Character 


х у Пе юю 25 со ~ а 


с ол умни теке = 


i 


o 


Ç 
и 
е 
а 
а 
а 
а 
с 
е 
е 
e 
1 

i 
1 
A 
E 
зе 
Æ 
ô 
Ö 
Ò 
a 
ù 
y 
Ó 
U 


V 
n 
2 
в 


re 





I-7]9-- 90063 Flea ert | Ta ee 


jb E 3 - 2 J POE 


STH MA 


(blank ЕЕ) 


Table H-2 ASCII Codes 0-255 


H-2 / Appendix И: ASCII Codes 


EXTENDED CODES 


For a combined key input or a special key input, the INKEY$ variable returns an 


extended code. 


This code consists of two bytes. 


The first byte is for &HOO 


and the second byte is for one of the codes shown below. The two-byte code is 


received by INKEY$. 


If the first byte is found to contain &HOO, determine the 


entered key by the code in the second byte: 


Second Code 


Table H-3 Extended Codes 


Meaning 


(Null character) NUL 

(Shift tab) SHIFT TAB 

ALT plus Q, W, E, R, T, Y, U, 
ALT plus A, S, D, F, G, H, J 
ALT plus Z, X, C, V, B, N, M 
Function keys F1 through 
disabled as soft keys) 

HOME 

(Cursor Up) 

(Page Up) PGUP 

(Cursor Left) 

(Cursor Right) 

END 

(Cursor Down) 

(Page Down) PGDN 

(Insert) INS 

(Delete) DEL 

SHIFT F1 through F10 

CTRL F1 through F10 

ALT F1 through F10 

CTRL PRTSC 

(Previous Word) CTRL 

(Next Word) CTRL 


ALT plus.1, 2, 3, 4, 5, 5, 7, 8, 9, =, 
CTRL PGUP 
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APPENDIX I 
SYNTAX LIST 


The typical form of commands, statements, functions, and system variables are 


described here for easy reference. For more detail, refer to Chapter 2 and 
Chapter 3. 


COMMANDS 


1. File 

2. Program Execution 
3. Program Creation 
4. Output to Printer 
5. Return to MS-DOS 


STATEMENTS 


. Non I/O 

. Screen 

Music 

. Input/Output Terminal 
« Port 

. Input/Output File 
. Function Key 
Communication 

. Error Handling 

. Debugging 

. Pen Handling 


m о юо чо ол RUOTA 


TM а 


FUNCTIONS AND VARIABLES 


. Arithmetic 

. String 

. Input 

File 

. Miscellaneous 


CU( C t2 н 


1. File 


o BLOAD filename, offset 
Loads a file anywhere in user memory. 


o BSAVE filename, offset, length 
Saves portions of the user memory on the specified device. 


o FILES 
Displays filenames on the disk. 


o KILL f//ename 
Deletes a file from disk. 


o LOAD #//епаме 
Loads a program file from disk into memory. 


o MERGE filename 
Merges a program file into the program in memory. 


o NAME o/d file AS new filename 
Changes the name of a disk file. 


o RESET 
Closes all disk files. 


o SAVE filename 
Saves a program file on disk. 


2. Program Execution 


o CONT 
Continues the program execution. 


o RUN fji/ename 
Executes the program currently in memory. 
3. Program Creation 


o AUTO //ne number, increment 
Generates a line number automatically. 


o CLEAR expression 7, expression 2 
Sets all variables and stack to initial value. 


o DELETE //ne number — line number 
Deletes program lines. 
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o EDIT //ne number 
Enters Edit Mode at the specified line. 


o LIST //ne number - line number, device 
Lists a program to the screen. 


o МЕЙ 
Deletes the program currently in memory and clear all variables. 


o  RENUM new number, о/а number, increment 
Renumbers program lines. 
4. Output to Printer 


o LCOPY 
Prints contents of the screen. 


o LLIST //ne number-line number 
Lists all or part of the program currently in memory. 
5. Return to MS-DOS 


o SYSTEM 
Leaves BASIC, returning to MS-DOS. 


STATEMENTS 


1. Non I/O 


o CALL variable name (argument list) 
Calls the machine language subroutine. 


o CHAIN fi /ename 


Calls a program and passes variables to it from the current 
program. 


o COMMON /ist of variables 
Passes variables to a CHAINed program. 


o DEF FN name (parameter /ist) = function definition 
Define and name a function. 


o DEF type range of letters 


Declares variable type as integer, single precision, double 
precision, or string. 
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o DEF SEG = address 
Defines the current segment of storage. 


o DEF USR digit = integer expression 
Specifies the starting address of an assembly language subroutine. 


o DIM //st of subscripted variables 
Specifies the maximum values for array variable subscripts and 
allocates storage accordingly. 


o END 
Terminates program execution and closes open files. 


o ERASE //st of array variables 
Eliminates arrays from a program. 


o FOR variable = x TO y 
Executes a series of statements to be performed a given number of 
times by a loop. 


o  GOSUB //ne number 
Branches to a subroutine. 


o @ TO //ne number 
Branches unconditionally out of the normal program sequence to a 
specified line number. 


o IF expression THEN statements ELSE statements 
Makes a decision regarding program flow based on the result 
returned by an expression. 


o LET variable = expression 
Assigns the value of an expression to a variable. 


о MID$ ( string exp 7, n, m) =string exp 2 
Replaces a portion of one string with another string. 


o NEXT variable 
Specifies the end of a FOR loop. 


o ON express/on GOSUB //st of /ine numbers 
Branches to one of several specified subroutines. 


о ON expression to GOTO /ist of /ine numbers 
Branches to one of several specified line numbers. 


o OPTION BASE n 
Declares the minimum value for array subscript. 


o RANDOMIZE expression 
Reseeds the random number generator. 
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o REM remark 
Allows explanatory remarks to be inserted in a program. 
o RETURN 
Returns from a subroutine. 
o SHELL parameter 
Executes a child process. 
o STOP | 
Terminates program execution and return to command level. 
o SWAP variable, variable 
Exchanges the value of two variables. 
o WEN 
Specifies the end of WHILE loop. 
o WHILE expression 
Executes a series of statements in a loop as long as a given 
condition is true. 
2. Screen 
o CIRCLE (xcenter, ycenter), radius, color 
Draws a circle with a center and radius. 
о CLS screen identifier 
Erases the current active screen page. 
o COLOR foreground, background, border 
Sets colors on the text screen. 
o COLOR background, palette 
Sets colors in the graphics mode. 
о DRAW command string 
Draws figures on the screen. 
o GET (х7, y1) - (x2, y2) arrayname 
Reads points from an area of the screen. 
o LINE (x7, y1) - (x2, y2) 
Draws straight lines and rectangles on the screen in graphics mode. 
o LOCATE row, col 
Moves the cursor to the specified position on the active screen. 
o LOCATE row, co/ 
Moves the cursor to the specified position on the active screen. 
o PAINT (xstart, ystart), point attribute, border attribute 


Fills in an arbitrary graphics figure of the specified color. 
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o PRESET (x, y) 
Draws a dot at the assigned position on the screen in the 
background color. 


o РЅЕТ (x, y) 
Draws a dot at the assigned position on the screen in the 
designated color. 


o PUT (x, y), array name, operation 
Displays graphics patterns at the assigned position on the screen. 


o SCREEN mode (,burst) (,active page) (,visual page) 
Sets screen attributes for either text or graphic displays. 


o WIDTH s/ze 
Sets the printed width in number of characters for the screen (or 
line printer). 


3. Music 


o BEEP 
Sounds the speaker at approximately 1000 Hz for 1/4 second. 


o PLAY string expression 
Plays a melody indicated by character string. 


o SOUND freq, duration 
Generates sound through the speaker. 
4. Input/Output (Terminal) 


o INPUT "prompt"; list of variables 
Inputs from the terminal during program execution. 


o LINE INPUT "prompt"; string variable 
Inputs an entire line to a string variable. 


o LPRINT //st of expressions 
Prints data at the line printer. 


o LPRINT USING string exp; list of expressions 
Prints data at the line printer. 


o PRINT //st of expressions 
Outputs data at the terminal. 


o PRINT USING string exp; list of expressions 
Prints strings of numbers using a specified format. 


o WRITE //st of expressions 
Outputs data at the terminal. 
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5. Port 


о OUT post, data 
Sends a byte to a machine output port. 


o POKE post, data 
Writes a byte into memory location. 


o WAIT port, n, m 
Suspends program execution while monitoring the status of a machine 
input port. 


6. Input/Output (File) 


o CLOSE £ file number 
Concludes I/O to a disk file. 


o FIELD # file number, field width AS string variable 
Allocates space for variables in a random file buffer. 


о GET # file number, record number 
Reads a record from a random disk file into a random buffer. 


o INPUT # fi/e number, variable list 
Reads data items from a sequential disk file and assigns them to 
program variables. 


o LINE INPUT# fi/e number, string variable 
Reads an entire line from a sequential disk data file to a string 
file. 


o LSET string variable = string expression 
Moves data from memory to a random file buffer (left-justifies). 


о OPEN file mode 7. # file number, file spec, reclen 
Opens a file. 


o OPEN fi /ename FOR file mode 2 AS € file number 
Alternative form for OPEN. 


o PRINT #7/ /е number,/ist of expressions 
Writes data to a sequential disk file. 


o PRINT #fi/e number ,USING string exp;list of exps 
Writes data to a sequential disk file. 


o PUT # file number, record number 
Writes a record from a random buffer to a random disk file. 


o RSET string variable = string expression 
Moves data from memory to a random file buffer (right-justifies) 


o WRITE # file number, list of expressions 
Writes data to a sequential disk file. 
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7. Function Key 


о KEY key number, string expression 
Defines the function key assignment text. 


o KEY ON/OFF/LIST 
Displays function keys and turns display off. 


o KEY (key number) ON/OFF/STOP 
Enables (or disables) interrupts caused by a specified key. 
o ON KEY key number GOSUB //пе number 


Defines the starting line of the subroutine used when a KEY 
interrupt occurs. 


8. Communications 


o COM(n)ON/OFF/STOP 
Enables and disables the trapping of communications. 


o ОМ COM(n)GOSUB line number 


Defines the starting line of the subroutine used when data arrives 
at the communication buffer. 


o ОРЕМ "СОМ n: options" AS # file number 
Opens a communications file. 


9. Error Handling 


o ERROR /nteger expression 


Simulates the occurrence of a BASIC error; or allows error codes to 
be defined by the user. 


o ОМ ERROR GOTO //ne number 


Enables error trapping and specifies the first line of the error 
handling subroutine. 


o RESUME /ine number /NEXT/O 
Continues program execution after an error recovery procedure has 


been performed. 
10. Debugging 
o TRON, TROFF 


Enables (or disables) tracing of the execution of program 
statements. 
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11. Pen Handling 


o ON PEN GOSUB //пе number 
Defines the starting line of the subroutine employed when the light 
pen is used. 


o РЕМ ON/OFF /STOP 
Enables (or disables) the light pen. 


FUNCTIONS AND VARIABLES 


1. Arithmetic 


o ABS (X) | 
Returns the absolute value of the expression X. 


о АТМ (X) 
Returns the arctangent of X in radians 


o COBL (X) 
Converts X to a double precision number. 


o СІМТ (X) 
Converts X to an integer by rounding the fractional portion. 


o COS (X) 
Returns the cosine of X in radians. 


o CSNG (X) 
Converts X to a single precision number. 


o EXP (X) 
Returns e to the power of X. 


o FIX (X) 
Returns the truncated integer part of X. 


o INT (X) 
Returns the largest integer <=X. 


o LOG (X) 
Returns the natural logarithm of X. 


o RND (X) 
Returns a random number between O and 1. 


o SGN (X) 
Returns a value depending on the sign of X. 
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o SIN (X) 
Returns the sine of X in radians. 


o SQR (X) 


Returns the square root of X. 


o TAN (X) 
Returns the tangent of X in radians. 


2. String Handling 


o ASC O$) 
Returns a numerical value that is the ASCII code of the first 
character of the string X$. 


o CHR$ (X) 
Returns a string whose one element has ASCII code X. 


o CVI (X$), CVS (X$), CVD (X$) 
Converts a string value to a numerical value. 


o HEX$ (X) 
Returns a string that represents the hexadecimal value of the 
decimal argument. 


o INSTR (I, X$, YS) 
Searches for the first occurrence of string Y$ in X$ and returns 
the position where the match is found. 


o LEFT$ (X$, 1) 
Returns a string comprising the left-most I characters of X$. 


o LEN (X$) 
Returns the number of characters in X$. 


o MID$ (X$, I, J) 
Returns a string of length J characters from X$ beginning with the 
Ith characters. 


o MKI$ (X), MKS$ (X), MKD$ (X) 
Converts a numerical value to a string value. 


o OCT$ (X) 
Returns a string which represents the octal value of the decimal 
argument. 


o RIGHTS (X$, 1) 
Returns the current cursor position. 


o SPACES (X) 
Returns a string of spaces of length X. 
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o STR$ (X) 
Returns a string representation of the value of X. 


o STRINGS (I, X$) 
Returns a string of length I whose characters all have the first 


character of X$. 


o VAL (X$) 
Returns the numerical value of string X$. 


o VARPTR$ (variable) 
Returns the address of a variable in a character form. 


3. Input 
o  INKEYS 


Returns either a one-character string containing a character read 
from the terminal or a null string. 


o INPUTS (X, #Y) 
Returns a string of X characters, read from the terminal or from 


file number Y. 


4. File Status 


o EOF (file number) 
Tests to see if the file specified in file number has ended. 


о LO (file number) 
Returns the present location in the file. 


o LOF (file number) 
Returns the number of bytes allocated to the file. 
5. Miscellaneous 


o CSRLIN 
Returns the current line (or row) position of the cursor. 


o DATES 
Retrieves the date in calendar form. 


o DATE$ = string expression 
Sets the date in calendar form. 


o ERL 
Returns the line number of the last error. 
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o ERR 
Returns the error code for the last error. 


o FRE 
Returns the number of bytes in memory not being used by BASIC. 


o INP (X) 
Returns the byte read from port X. 


o LPOS (X) 
Returns the current position of the line printer print head within 
the line printer buffer. 


o PEEK (X) 
Returns the byte read from memory location I. 


o PEN (X) 
Reads the light pen. 


o POINT (X, Y) 
Returns the attribute value of a pixel from the screen. 


o POS (1) 
Returns the current cursor. 


o SCREEN (row, co/, z) 
Returns the ASCII code (0-255) for the character from the screen at 
the specified row (line) and column. 


o SPC (X) 
Prints X blanks on the terminal. 


o TAB (X) 
Spaces to position X on the terminal. 


o TIMES 
Returns the present time in character form. 


o TIMES = string expression 
Sets the time in character form. 


o USR digit (X) 
Calls the specified assembly language subroutine. 


o VARPTR (variable name) 
Returns the address of the variable. 


o VARPTR (# file number) 


Returns the starting address of the File Control Block assigned to 
file number. 
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APPENDIX J 
KEY SCAN CODES 


Key Hexadecimal Scan Code 


Function Keys 


F1 3B 
F2 3C 
F3 3D 
F4 3E 
F5 3F 
F6 40 
F7 41 
F8 42 
F9 43 
F10 44 


Numeric Keys 


ооо мо олт AWND = 
wm Ф бо » де 90 + OQ — 
О 
О 


Key Hexadecimal Scan Code 


Numeric Keypad 


1 END 4Е 
2 50 
3 PGDN 51 
4 4B 
5 4C 
6 4D 
7 HOME 47 
8 48 
9 PGUP 49 
O INS 5e 
. DEL 93 
PRTSC * 37 
- 4A 
+ AE 


Alphabetic Keys 


A 1E 


ЧАСЕ < сач оо ос г КС. гс птпоопош 
OO 
— 
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Key Hexadecimal Scan Code 


Punctuation Keys 


X 2B 
- _ ОС 
= + OD 
в: ТА 
|) 1B 
~ 29 
5 8 27 
i и 28 
3. < 33 
< 34 
/ ? 35 
Cursor Control Keys 
TAB OF 
BACKSPACE OE 
SPACEBAR 39 
Control Keys 
Left SHIFT 2A 
NUM LOCK 45 
SCROLL LOCK/BREAK 46 
RETURN 1C 
Right SHIFT 36 
CAPS LOCK 3A 
Special Function Keys 
ESC 01 
CTRL 1D 
ALT 3B 
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INDEX 


A 


ABS 3-2, 3-11 
Absolute 
form 1-30 
value 3-2 
ADD$ 2-37 
Address 2-23 
Algebraic expressions 1-19 
ALL option 2-7, 2-18 
Alphabetic characters 1-11 
ALT key 1-32, 1-33, 2-79 
AND 1-22, 2-115, 2-143 
Apage 2-129 
APPEND 2-86, 3-18, 3-19 
Arithmetic 
Operations 1-11 
Operators 1-19 
Arrays 2-42, 3-39 
space 1-17 
variables 1-16, 1-17, 2-97 
ASC 3-2, 3-4 
ASCII 
codes 1-24, 3-27, H-1 
format 2-63, 2-70, 2-128 
mode 2-62 
Assignments, multiple Е-2 
ATN 3-3 
ATP 1-2 
Attribute value 3-25 
AUTO 1-6, 2-2 


B 


Background 2-14, 2-15 
BACKSPACE key 1-2, 1-32, 1-36 
BASIC 
assembly language subroutines 
C-1, C-5 
\D 1-2 


disk I/O А-1 

ending 1-1 

МЕ 1-2, 1-3 

“М 1-3 

machine language subroutines 
13 

program editor 1-34 

program line format 1-11 

start options 1-2 

starting 1-1 


Batch 1-2 
BEEP 2-3 
BEL 3-4 


BLOAD 2-4, 2-5 
Border 1-28, 2-14, 2-142 
Brackets, square Preface-3 
BSAVE 2-4, 2-5 
Buffer 1-2, 2-122 

random file А-6 

\C:size 1-2, 1-3 

\C:nnn 1-2 
Burst 2-129 


C 


Calculator functions 1-11 
CALL 2-4, 2-5, 2-6, 2-23, C-2 
Capital letters Preface-3 
CDBL 3-3, 3-5, 3-6 
CHAIN 2-7, 2-18, 2-91 
Character(s), 
alphabetic 1-11, 1-25 
numeric 1-11, 1-25 
special 1-11, 1-12, 1-25, 3-4 
type declaration 1-16 
CHDIR 2-9 


CINT 3-5, 3-6, 3-15 
CIRCLE 2-10, 2-59, 2-93 
CLEAR 2-11, 2-93 


CLOSE 2-12, 2-122 
CLS 2-13 
Codes, 
ASCII character Н-1 
error F-1 
extended H-3 
key scan J-1 
COLOR 1-28, 2-10, 2-29, 2-59, 
2-96, 2-112 
display 1-28 
(graphics) 2-16 
(text) 2-14 
COM 2-17, 2-75, 2-78, 2-90 
device 2-90 
OFF 2-17, 2-75 
ON 2-17, 2-75 
STOP 2-17, 2-75 
COMMAND 2-131 
COMMAND.COM 2-131 
Command mode 1-5, 1-10, 1-11 
Commands, list of 1-2 
Comments 2-1 
COMMON 2-7, 2-18 
Communications В-1 
file B-1 
I/O unit B-1 
Comspec 2-131 
Config.sys 1-3 
Constant(s), 1-14 
double precision 1-15 
fixed point 1-14, 2-20 
floating point 1-14, 2-20 
hex 1-14 
integer 1-14, 2-20 
numeric 1-14, 2-20 
octal 1-14 
single precision 1-15 
string 1-14, С-5, С-6 
CONT 2-19, 2-61, 2-135 
Conversion, types 1-17 
Converting programs Е-1 
Coordinates 1-30 
Correction, character 
(see Screen editor) 
Correction, line-by-line 
1-7, 1-8 
COS 1-2, 3-5 
CRT screen 3-4 
CSNG 3-5, 3-6 
CSRLIN 1-28, 3-6 
CTRL key 1-33, 1-35 


CTRL-ALT-DEL keys 1-34, 2-143 
CTRL-BREAK keys 1-4, 1-6, 1-7, 
1-34, 1-36 2-2, 2-19, 3-13, 3-14 


CTRL-END keys 1-9, 1-36 
CTRL-HOME keys 1-35, 1-36 
CTRL-NUM LCK keys 1-7, 1-34 
CTRL-Z keys 1-5 


Current node 1-27 
Cursor position 3-6 
CVD 3-7, 3-22 
CVI 3-7, 3-22 
CVS 3-7, 3-22 


D 


DATA 2-20, 2-118, 2-119, 2-123 


segment 2-23 
DATE$ 3-8 
Debugging 1-11, 2-19, 2-141 
DEF FN 2-21 
DEF SEG 2-4, 2-5, 2-6, 2-23 
address 2-23 
DEF USR 2-6, 2-24, 3-37 
digit 2-24 
Default extension (.BAS) 1-2, 
2-66, 2-70, 2-127 
DEFDBL 2-22 
DEFINT 2-22 
DEFSNG 2-22 
DEFSTR 2-22 
DEL key 1-36 
DELETE 1-8, 2-25 
Delimiters 1-12 
Derived functions G-1 
Device name 1-26 
Digit 2-24 
DIM 2-26 
Dimension, string E-1 
Direct mode 1-10, 2-76 
Directory 
current node 1-27 
paths 1-27 
root node 1-27 
Disk data files А-2, А-5 
Display, monochrome 1-28 
Display, 16-color 1-28 
Division by zero 1-20 
Double precision 1-2 
constant 1-15 
conversion 1-17 
number 3-5 
space requirements 1-17 
variable 1-16 
Double Precision Transcendental 
Math Package 1-2 
DRAW 2-27, 3-41 
Drive 1-25 
Dummy arguments 3-12 


E 


EDIT 1-9, 2-30, 2-128 
Ellipses Preface-3 
ELSE 2-46 
Embedded reserved words 1-16 
END key 1-35, 1-36 
END 2-12, 2-31, 2-44, 2-135 
ENVIRON 2-32 
ENVIRON$ 2-33, 3-8 
EOF 3-9 
ERASE 2-34 
ERDEV 3-9 
ERDEV$ 3-9 
ERL 2-121, 3-10 
ERR 3-10 
ERROR 2-35, 2-75, 2-78 
Error code 3-10, F-1 
Error message(s) 1-24, F-1 
Bad file mode 2-70 
Can’t contintue after SHELL 
2-133 
Communication buffer overflow 
1-18, B-2 
Device I/O 2-89 
Device timeout 2-90 
Direct mode 2-76 
Division by zero 1-20 
Field overflow 2-37, 2-113 
File already open 2-56 
File not found 2-87 
Illegal function call 2-15, 
2-16, 2-23, 2-52, 2-67, 2-11, 
2-95, 2-99, 2-109, 2-112, 
2-116, 2-121, 2-128, 2-130, 
3-2, 3-28, 3-36, 3-39 
Input past end 3-9 
NEXT without FOR 2-39, 2-40 
Out of data 2-118 
Out of memory 2-32, 2-93, 
2-132 
Overflow 3-5, 3-35 
Redimensioned array 2-34 
Redo from start 2-48 
RESUME without error 2-124 
Subscript out of range 2-26 
Syntax 2-5, 2-76, 2-118 
Type mismatch 2-21, 2-137, 
3-36 
Undefined line 2-46 
Undefined line number 2-30 
Undefined line xxxxx in yyyyy 
2-121 
Undefined user function 2-21 
Unprintable error 2-35 
WEND without WHILE 2-144 
WHILE without WEND 2-144 
ESC key 1-6, 1-36 


Examples 2-1 

Exit 2-131 

EXP 1-2, 3-11 

Expression(s) 1-18 
algebraic 1-19 
arithmetric 1-18 
functional 1-18 
integer 2-35, 3-1 
logical 1-18 
numeric 2-85, 3-1 
relational 1-18 
string 3-1 
value 2-77 

Extended codes H-3 

Extension 1-25 
default (.bas) 1-2, 2-66, 

2-70, 2-127 


F 


FCB 1-2, 3-39, 3-40 
FIELD 2-37, 2-86, A-7 
width 2-37 

Fields 
numeric 2-107 
string 2-106 
File(s) 1-25 
AUTOEXEC.BAT 2 
communication B- 
input 1-4 
output 1-4 
random A-6, A-7 
random buffer 2-117 
random disk 3-18 
sequential 3-18 
File Control Block (FCB) 1-2, 
3-39, 3-40 
Filemode 2-86 
Filename 1-2, 1- 
Filenumber 2-12 
FILES 2-38 
Filespec 1-25, 2-4, 2-7, 2-38 
FIX 3-5, 3-11, 3-15 
Fixed point constant 1-14 
Floating point 
computation 2-47 
constant 1-14 
converted 1-18 
value 3-1 
FOR 2-125 
FOR...NEXT 2-39 
Foreground 2-14 
Form, 
absolute 1-30 
relative 1-30 
FRE 3-12 
Function keys 1-33 
Functional operators 1-24 


25, 2-10 


Functions 
definition 2-21 
derived G-1 
EOF 1-5 
intrinsic 1-24, 3-1 
IO B-2 
list of .I-1 
mathematical G-1 
transcendental 3-1 
user defined 1-24 


G 


GET 2-37, 2-41, 2-87, 2-90, 
2-115, 2-116, B-1 
(graphics) 2-42 
GML 2-27 
GOSUB 2-44, 2-120, 2-125 
GOSUB...RETURN 2-44, 2-125 
GOTO 2-19, 2-44, 2-45, 2-46, 
2-120, 2-121 
Graphics 2-115 
mode 1-28, 1-29 
GWBASIC, see BASIC 
assembly language subroutines 


C-1 

\D 1-2 

disk I/O А-1 

ending 1-1 

\F 1-2 

WM 1-3 

machine language subroutines 
1-3 


program editor 1-34 
program line format 1-11 
start options 1-2 

Starting 1-1 


H 


Hex 
constant 1-14 
scan codes J-1 
value 3-12 
HEX$ 3-12, 3-23 
High resolution 1-29, 1-30, 
2-145 
HOME key 1-35 
Housecleaning 3-12 


I 
IF 2-46 


IF... THEN 2-46, 3-10 
Indirect mode 1-10 


Infinite 
loop 2-143 
width 2-146 
Infinity, machine 3-11 
INKEY$ 2-78, 3-13 
INP 3-13 
INPUT 2-19, 2-37, 2-48, 2-87, 
2-92, A-7 
INPUT# 2-41, 2-50, 2-87, 2-89, 
2-150, B-2 
INPUT$ 2-78, 3-14, B-2 
INS key 1-36 
INSTR 3-14, 3-15 
INT 3-5, 3-11, 3-15 
Integer 
constant 1-14 
division 1-20 
expressions 2-24, 3-1 
results 3-1 
space requirements 1-17 
variable 1-16 
Intrinsic function 1-24, 3-1 
IOCTL 2-51, 3-16 
IOCIL$ 2-S1, 3-16 
I/O functions В-2 
I/O unit, communication  B-1 


K 


key(s) 
ALT 1-32, 1-33, 2-79 
BACKSPACE 1-2, 1-32, 1-36 
CAPS LOCK 1-32, 2-79 
combinations 1-34 
CIRL 1-32, 1-33, 1-35, 2-79 
CTRL-ALT-DEL 1-34, 2-80 
CTRL-BREAK 1-4, 1-34, 1-36, 

2-80 

CTRL-END 1-9, 1-36 


CTRL-NUM LCK 1-7, 1-34 
CTRL-Z 1-5, 2-90 
DEL 1-36 


HOME 1-35 


NUM LCK 1-7, 1-34, 2-79 

Numeric keypad 1-31, 1-34 

Program editor 1-35 

PRTSC 1-32, 2-79 

RETURN 1-9, 1-31 

Scan codes  J-1 

SHIFT 1-31, 1-32, 1-33, 2-79 
Left 2-79 


Symbols 1-32 

TAB 1-36, 2-90 

UP ARROW 1-35 
KEY 2-52, 2-75, 2-78 

LIST 2-52 

[n] OFF 2-54 

[n] ON 2-54 

[n] STOP 2-54 

number 2-52 

OFF 2-52 

ON 2-52 
KEY [n] OFF 2-54 
KEY [n] ON 2-54 
KEY [n] STOP 2-54 
Key number 2-78 
Keyboard 1-31, 2-146 
Keying error 1-6 
Keypad, numeric 1-34, J-2 
KILL 2-56, 2-73, A-2 
KYBD, see keyboard 


L 


LCOPY 2-57 

LEFT$ 3-17, 3-26 

LEN 3-15, 3-17 

Length 2-5 

LET 2-37, 2-58, 3-10 

LINE 2-27, 2-42, 2-59, 2-92 

Line format 1-11 

LINE INPUT 2-61 

LINE INPUT# 2-41, 2-61, 2-62, 
2-87, 2-89 

Line number 1-6, 1-11, 2-2, 2-7, 
2-30, 2-44, 2-75, 2-77, 3-10 

LIST 1-6, 1-7, 1-8, 1-9, 2-30, 
2-63, 2-128, 2-65, 2-146 

Literals, string 3-15 

LLIST 2-65, 2-146 

LOAD 1-7, 2-66, 2-128, А-1 

LOC 3-18 

LOCATE 1-28, 2-67, 3-6 

LOF 3-19 

LOG 1-2, 3-20 

Logical 
line 1-36 
operations 1-11 
operators 1-21 

Loop 2-143, 2-144, 3-31, 3-33 
infinite 2-143 

LPOS 3-20, 3-26 

LPRINT 2-68, 3-34 

LPRINT USING 2-68 

LSET 2-37, 2-69, 3-22 


M 


Machine infinity 3-11 

MAT functions E-2 

Mathematical functions G-1 

Maximum block size 1-3 

Medium resolution 1-29, 1-30, 
2-145 

Memory allocation C-1 

Memory location 1-3 

MERGE 2-7, 2-70, 2-128, A-2 

Messages, error F-1 

MID$ 2-71, 3-17, 3-21, 3-26 

MKDIR 2-72 


MKS$ 3-7, 3-22 
MOD, see Modulo arithmetric 
Mode, 
batch 1-2 
command 1-10 
direct 1-10 
graphics 1-28, 1-29, 2-145 
indirect 1-10 
program 1-10 
screen 2-129 
Modes of operation 1-5, 1-10 
Modulo arithmetic 1-20 
Monochrome display 1-28 
MS-DOS 1-1, 2-126, 2-131 
directory paths 1-27 
file system 1-26 
Multiple 
assignments Е-2 
statements E-2 
Music 2-100 


N 
Name 1-27, 2-21 
NAME 2-73 

AS А-2 


Nested loops 2-39 
Nesting IF statements 2-46 
NEW 1-6, 2-12, 2-74, 2-141 
Numeric 

characters 1-11 

constant 1-14 

constant type conversion 1-17 

expressions 3-1 

fields 2-109 

keypad 1-9, 1-34 

values 3-7, 3-22 

variable names 1-16 
Numerical value 3-2 


O Port number 2-75 
POS 3-6, 3-26 


Octal (0) 1-28 
constant 1-14 PRESET 2-112, 2-115 
value 3-22 PRINT 2-68, 2-104, 2-149, 3-34 
OCT$ 3-22 CHR$ 2-3 
Ok prompt 1-5, 1-10 positions 2-68, 2-104 
Offset 2-4 USING 2-106 
ON PRINT# 2-87, 2-110, 2-111, 
COM 2-75, 2-83, 2-87 2-113, 2-150 
ERROR GOTO 2-76 USING 2-87, 2-110, 2-111, 
..GOSUB 2-77, 2-85 2-113 
..GOTO 2-77 Program 
KEY 2-55, 2-78 corrections 1-7 
PEN 2-81, 2-83, 2-99 editor keys 1-34, 1-35 
PLAY 2-82, 2-83 lines 1-11, 2-121 
STRIG 2-83 mode 1-5, 1-6, 1-10 
TIMER 2-83, 2-85 writing, a 1-5 
OPEN 2-12, 2-37, 2-73, 2-86, Programming 1-1 
2-90, 2-146, 2-150, A-7 Prompt 
COM 2-87, 2-88, 2-90 Ok 1-5, 1-10 
Operations, Prompt string 2-48 
arithmetic 1-18, 1-19 PRTSC key 1-32 
logical 1-21 PSET 2-27, 2-112, 2-115 
relational 1-18 Punctuation  Preface-3 
string 1-24 PUT 2-37, 2-87, 2-90, B-1 
Operators, (COM) 2-114 
arithmetic 1-18, 1-19 (files) 2-113 
functional 1-18, 1-24 (graphics) 2-115 


interger division 1-20 
logical 1-18, 1-21, 1-22, 1-23 


modulo arithmetric 1-20 R 
relational 1-18, 1-21 

OPTION BASE 2-7, 2-26, 2-91 Radius 2-10 

OR 2-115 Random 

OUT 2-92, 3-13 disk files 3-18 

Output 2-86, 3-18, 3-19 Files) А-7, А-8 

Overflow 1-20 file buffer 2-37, 2-41, A-7 
error 1-18 RANDOMIZE 2-117 


READ 2-118, 2-20 
Reference 2-1 


P Register number 2-96 
Relational operators 1-21 

PAINT 2-93 Relative form 1-30 
PALETTE 1-29, 2-96 REM 2-120 
PALETTE USING 2-97 RENUM 2-8, 2-121, 2-122, 3-10 
Parentheses 1-19 Reserved words 1-12, 1-13 
Pathname 2-9, 2-72 delimiters 1-12 
Paths, directory 1-25, 1-27 RESET 2-12, 2-122 
PEEK 2-23, 2-103, 3-23 button 2-143 
PEN 2-75, 2-78, 2-81, 2-98 Resolution, 
Period (.) 1-11, 2-30, 2-101 high 1-29, 1-30, 2-145 
Pixel 1-28 medium 1-29, 1-30, 2-145 
PLAY 2-100, 3-24, 3-41 RESTORE 2-20, 2-118, 2-123 
PMAP 3-24 Results, single precision 3-1 
POINT 3-25 RESUME 2-124 

function 3-25 RETURN 2-2, 2-75, 2-125 
POKE 2-23, 2-103, 3-23 RIGHT$ 3-17, 3-26 


RMDIR 2-126 


RND 2-117, 3-27 

Root node 1-27 

RSET 2-12, 2-37, 2-69, 3-22 

RS-232C 1-2, 1-4, 2-88, 2-90, 
B-1 

RUN 1-6, 2-12, 2-117, 2-127, 
2-148, 3-27, A-1 


5 


SAVE 1-6, 2-70, 2-128, A-1 
Scan codes, key J-1 


Screen 
editing keys 1-9, 1-10 
editor 1-9 
using 1-27 
SCREEN 1-27, 2-13, 2-59, 2-60, 


2-98, 2-129, 2-145, 2-146, 3-6, 
3-27 
Secondary command processor 2-131 
Sequential files 3-18, A-2 
SGN 3-11, 3-28 
SHELL 2-33, 2-131 
SHIFT keys 1-31, 1-32, 1-33 2-79 
Left 2-79 
Right 2-79 
Simple variables 3-39 
SIN 1-2, 3-29 
Single precision 
constants 1-15 
conversion 1-17 
results 3-1 
space requirements 1-17 
variable 1-16 
SOUND 2-134 
SPACE$ 3-29, 3-30 
SPC 3-29, 3-30 
Space requirements 1-17 
Special character(s) 1-12, 3-4 
SQR 1-2, 3-30 
Square brackets 
Standard Input 
Standard Output 
Start options 1-2 
Statements, 
list of 1-1, 1-3 
multiple Е-2 


Preface-3 
1-2, 1-4 
1-2, 1-4 


Stdaux 1-3 
Stderr 1-3 
Stdin 1-2, 1-3 
Stdout 1-2, 1-3 
Stdprn 1-3 
STICK 3-31 


STOP 2-19, 2-31, 2-44, 2-135 
STRIG 2-136, 3-33 
STRIG(n) 2-83, 2-84, 2-136, 3-33 
ON/OFF/STOP 2-83, 2-84, 2-136, 
3-33 


String 


constant(s) 1-14, C-4, C-6 
dimension E-1 
expressions 2-32, 3-1 


fields 2-106 

literals 3-15 

null 3-8 

operations 1-24 

space 1-17, 2-37, A-7 
values 3-7, 3-22 
variable 2-37, 3-15, A-7 
variable names 1-16 


STRING$ 3-34, 3-41 
STR$ 3-34, 3-38 
SWAP 2-137 
Symbols 1-32 
Syntax 
definition 2-1 
error 2-76 
list I-1 
notation Preface-3 
SYSTEM 1-1, 1-2, 2-12, 2-138 
T 
Tab key 1-36 
TAB 3-34 
TAN 1-2, 3-35 
Text 1-27 
mode 1-29 
THEN 2-46 


TIMER 2-117, 2-140, 3-37 
ON/OFF/STOP 2-117, 2-140, 3-37 

TIME$ 2-139, 3-36 

Transcendental function 3-1 

TROFF 2-141 

TRON 2-141 

Type conversion 1-17 

Type declaration characters 1-16 


U 


UPARROW key 1-35 

Uppercase 1-32 

User-defined functions 1-16, 
1-24 

USR 2-23, 3-37, С-5 


V 


VAL 3-32, 3-38 
Value(s) 
absolute 3-2 
attribute 3-25 
floating point 3-1 
hex 3-12 
numeric 3-7 
octal 3-22 
string 3-7, 3-22 
Variable(s), 
array 1-16, 1-17 
double precision 1-16, 2-137 
integer 1-16, 2-137 
list of I-1, 1-9 
simple 3-39 
single precision 1-16, 2-137 
string 2-48, 3-15, A-7 
Variable names 
numeric 1-15, 1-16 
string 1-15, 1-16 
VARPTR 2-23, 3-39 
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